Adı : textbox
label koyup acıklamasını yazıyoruz sonra textbox koyuyoruz
bunun yerine textbox boş iken icerisine silinik bir şekilde istediğimizi yazabiliriz
boylece kullanıcılar o bolumun ad icin soyad icin orneğin olduğunu anlayabilirler hemen kodlara geciyorum.
Projemize bir tane modul ekliyoruz (zorunlu değildir)
Kod:
Imports System.Runtime.InteropServices Module CueBannerText _ Private Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Int32 End Function Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr Private Const EM_SETCUEBANNER As Integer = &H1501 Public Sub SetCueText(ByVal control As Control, ByVal text As String) If TypeOf control Is ComboBox Then Dim Edit_hWnd As IntPtr = FindWindowEx(control.Handle, IntPtr.Zero, "Edit", Nothing) If Not Edit_hWnd = IntPtr.Zero Then SendMessage(Edit_hWnd, EM_SETCUEBANNER, 0, text) End If ElseIf TypeOf control Is TextBox Then SendMessage(control.Handle, EM_SETCUEBANNER, 0, text) End If End Sub End Module
daha sonra formumuza birtane textbox ekliyoruz
form_load eylemimize textboxun ismi TextBox1 olmalıdır
farklı nesneler icin birden cok kod eklemelisiniz.
Kod:
SetCueText(TextBox1, "Frmtr - Hitme")
ornek kodunu ekliyoruz programı başlattığımızda textboxta kodda kırmızı ile belirtilen yazıyı goreceksiniz daha sonra birşeyler yazdığınızda o kaybolacaktır silerseniz tekrar geri gelecektir.
__________________