Erişim Örnekler

Pazartesi, Ocak 14, 2008 tarihinde gönderildi - 16:24 | by admin |

Küçük bir kod aracılığı ile size formunu açmak süresine bağlı olarak kullanıcı yerdesiniz. Bu örnekte üç farklı mesajları görebilirsiniz:
12:00 'a kadar 1-Sabah;
2-Up 19:00 İyi öğleden sonra;
3-arası 19:00 ve 00:00 İyi akşamlar.

Sadece aşağıdaki gibidir küçük bir kod gerekir:

Public Function Selamlama ()
As String Dim strMsg

Zaman <# 12:00:00 # Daha sonra ise
"Merhaba = strMsg! Have a nice day! "
ElseIf Zaman <= # 7:00:00 # Ardından
"Merhaba = strMsg! İyi günler! "
Başka
"Merhaba = strMsg! İyi geceler! "

End If
Uyum = strMsg
End Function

Sonra kodu aramak için, bir metin kutusu kullanın ve uyum izleme kökeni olarak = () yazın.

Download: Uyum