Listboxa degisik renklerde item nasyl eklenir?
Kod Alanı: |
MSFlexGrid control kullanyn |
|
Form close butonu nasyl çalistirilir?
Kod Alanı: |
dim bClose as Boolean
Formun QueryUnload eventine ekle:
If bClose = false then cancel = true |
|
Bir combonun içini diger bir combodan aldiklarinizla nasyl doldurursunuz?
Kod Alanı: |
Sub comboA_click( )
comboB.text = comboA.text
End sub |
|
Eger ComboAdaki seçili degerlerin ComboBye aktarilmasini istiyorsaniz
Kod Alanı: |
Sub comboA_click( )
comboB.AddItem comboA.text
end sub |
|
Birden fazla sütun içeren combolar nasyl yapylyr?
Projenize Microsoft Forms 2.0 control ekleyin, oradaki
combo multi-column destekler.
Kod Alanı: |
Combo1.Clear
Combo1.ColumnCount = 2
Combo1.ListWidth = "6 cm" Total genislik
Combo1.ColumnWidths = "2 cm;4 cm" sütun genisligi
Combo1.AddItem "Ivir zivir"
Combo1.List(0, 1 ) = "Ivir zivir" |
|
Dikine uzanan label nasyl yapylyr?
Kod Alanı: |
Private Sub Form_Activate( )
Dim s As String
Label1.Caption = "Webhocam.com"
For i = 1 To Len(Label1 )
s = s & Mid$(Label1, i, 1 ) & vbCrLf
Next
Label1 = s
End Sub |
|
dikkat: Labeli dikine çekmelisiniz
Joker karakterler kullanarak string nasyl aranir?
Kod Alanı: |
Dim Mystr As String
Mystr = "Hakan"
If Mystr Like "H*" Then
MsgBox "Bulundu"
Else
MsgBox "Bulunamadi"
End If |
|
Her dile uyumlu tarih nasyl formatlanir?
Kod Alanı: |
Command1.Caption = Format$(Date, "Short Date" ) |
|
Uyari isareti olan (X ) mesaj kutusu nasyl yapylyr?
Kod Alanı: |
MsgBox "Mesaj Buraya!!", vbCritical, "Önemli" |
|
Içine tab yerlestirebileceginiz text kutulari nasyl yapylyr?
Bir form içindeki tüm kontrollerin tabstoplarini Falsee esitleyin
Text kutulari için kisayol tuslari nasyl belirlenir?
Kisayol tusuna sahip bir label hazirlayin ve labelin tabindexini textboxun tabindexinden
bir asagiya esitleyin.
Command butondan popup menü nasyl yapylyr?
Öncelikle menü editör ile bir menü yaratin.
Asagidaki gibi:
Kod Alanı: |
Button Menu (Menu name: mnuBtn, Visible: False - Unchecked )
....SubMenu Item 1 (Menu name: mnuSub, Index: 0 )
....SubMenu Item 2 (Menu name: mnuSub, Index: 1 )
....SubMenu Item 3 (Menu name: mnuSub, Index: 2 )
....SubMenu Item 4 (Menu name: mnuSub, Index: 3 ) |
|
ve bir tane de command button hazirlayin ve kodu yerlestirin:
Kod Alanı: |
Private Sub mnuSub_Click(Index As Integer )
Call MsgBox("Kliklenen menü: " & Index + 1, vbExclamation )
End Sub
Private Sub Command1_Click( )
Call PopupMenu(mnuBtn )
End Sub |
|
Not: Isterseniz daha güzel etki için "Call PopupMenu(mnuBtn )" çagrisi yerine
Kod Alanı: |
Call PopupMenu(Menu:=mnuBtn, X:=Command1.Left, Y:=Command1.Top + _
Command1.Height ) |
|
çagrisini yada;
Kod Alanı: |
Call PopupMenu(mnuBtn, vbPopupMenuCenterAlign, Command1.Left + _
(Command1.Width / 2 ), Command1.Top + Command1.Height ) |
|
çagrisini kullanin.
Text kutusunda olan degisiklik nasyl farkedilir?
Amaç kullaniciyi yaptigi degisiklikler konusunda programi kapatmadan uyarmaktir.
Kod Alanı: |
Public Degisti As Boolean Bu degisken textboxta herhangi bir degisiklik olup olmadigini tutar.
Private Sub Text1_Change( )
Degisti= True
End SubPrivate
Sub Form_Unload(Cancel As Boolean )
If Degisti Then
If Msgbox("Degisiklikler kaydedilsin mi?", vbYesNo, "Kayit" ) = vbYes Then
Buraya kaydetme ile ilgili kodlar gelecek
Degisti = False
Degisti degerini tekrar False yap ki bir sonraki degisiklikte tekrar çalisabilsin. (Bu Önemli!!!! )
Bunu sadece buradaki If - End If blogu arasina yaz
End If
End If
End Sub |
|
Listboxa bir text dosyasi içerigi nasyl yüklenir?
Kod Alanı: |
Private Sub Command1_Click( )
Dim BulunanKelimeler As String
Open "C:test.txt" For Input As #1
List1.Clear
While Not EOF(1 )
Input #1, StringHold
List1.AddItem BulunanKelimeler
Wend
Close #1
End Sub |
|
Textbox ve Combobox için Undo (geri al ) fonksiyonu nasyl kullanilir?
Bir Windows API undo islemi yapar
asagidaki deklerasyonlari yaz
Kod Alanı: |
Declare Function SendMessage Lib "User" (ByVal hWnd As _
Integer, ByVal wMsg As Integer, ByVal wParam As _
Integer, lParam As Any ) As Long |
|
asagidaki degismezleri yaz
Kod Alanı: |
Global Const WM_USER = &h400
Global Const EM_UNDO = WM_USER + 23 |
|
Undo Sub lara asagidaki kodu yaz
Kod Alanı: |
UndoResult = SendMessage(myControl.hWnd, EM_UNDO, 0, 0 ) |
|
UndoResult = -1 olursa hata var demektir
UndoResult sadece bir rakamdir ve hiç bir önemi yoktur. Sadece yer tutmasi için yazilir.
VBnin buna benzer gariplikleri vardir. Bir amaci varsa da ben bilmiyorum
Clipboarddan text nasyl kopyalanir?
Textboxta texti isaretle ve isaretlenen yeri clipboarddan kopyaladiginla degistir:
Kod Alanı: |
txtBox.SelText = Clipboard.GetText
Yada tüm texti clipboarddan aldiginla degistir.
txtBox.Text = Clipboard.GetText |
|
Clipboarda text nasyl kopyalanir?
Önce clipboardu temizle
Sonra kopyalanacak alani seç ve clipboarda kopyala
Kod Alanı: |
Clipboard.SetText txtBox.Text, vbCFText |
|
Toolbarin click olayi nasyl kodlanir?
Kod Alanı: |
Private Sub Toolbar1_ButtonClick(ByVal Button As Button ) |
|
button clicklerini saptamak için:
Kod Alanı: |
Select Case Button.Key
Case Is = "Exit"
If MsgBox("Çikmak istiyor musunuz??", vbQuestion + vbYesNo + _
vbDefaultButton2, "Programdan çikiyorsunuz!" ) = vbNo Then Exit Sub
Call ExitProgram
Case Is = "Repair"
Call Repairdb
Case Is = "Delete"
Call DeleteRoutine
Case Is = "Edit"
Call EditRoutine
Case Is = "New"
Call NewRoutine
Case Is = "Copy"
Call CopyToClipboard
Case Is = "Help"
Call ShowHelpContents
End Select
End Sub |
|
Dogum gününden ki?inin ya?y nasyl hesaplanyr?
Texti Date data türüne çevir
Kod Alanı: |
Dim Birth as Date
Birth = DateValue(txtDOB )
Yasi hesapla
Dim Age as Integer
Age = Int(DateDiff("D", Birth, Now ) / 365.25 ) |
|
4 rakamly tarih nasyl kontrol edilir?
Kod Alanı: |
Public Function ValidDate(MDate ) |
|
Amaç: 4 digitli "yyyy" formatindaki tarihi kontrol etmek; hata var ise kullaniciyi uyarmaktir.
Input: Texboxtan string
Output: True yada False
Default : False
ValidDate = False
Eger uzunluk "m/d/yyyy" den kisa ise fonkiyondan çik
If Len(MDate ) < 8 Then Exit Function
Geçerli bir tarih türü girilmemisse terket
If IsDate(MDate ) = False Then Exit Function
Sonu "yyyy" ile bitmiyorsa yada baslamiyorsa terket
Kod Alanı: |
Dim StartDate As String
Dim EndDate As String
EndDate = Right(MDate, 4 )
StartDate = Left(MDate, 4 )
If ValidChar(EndDate, "0123456789" ) = False And _
ValidChar(StartDate, "0123456789" ) = False Then Exit Function |
|
Tüm bu testlerden geçilirse True yükle
ValidDate = True
End Function
Web adresleri nasyl açylyr?
Asagidaki kodu bir kontrolun click eventine yaz
Kod Alanı: |
Dim iRet As Long
Dim Cevap As Integer
Cevap = MsgBox("Www.Webhocam.com adresini açmak istiyor musunuz?", vbInformation + vbYesNo, "Www.webhocam.com" )
Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://Www.webhocam.com", vbNormal )
Case vbNo
Exit Sub
End Select |
|