Posted under Visual Basic
Listbox’a degisik renklerde item nasıl eklenir?
MSFlexGrid control kullanın
Form close butonu nasıl çalistirilir?
dim bClose as Boolean
Form’un QueryUnload event’ine ekle:
If bClose = false then cancel = true
Text dosyasina çift tirnak isaretleri olmadan nasıl string girisi yapılır?
Write # statement yerine Print # statement kullan
Print # statement stringlerin etrafina çift tirnak koymaz
Bir combo’nun içini diger bir combo’dan aldiklarinizla nasıl doldurursunuz?
Sub comboA_click()
comboB.text = comboA.text
End sub
Eger ComboA’daki seçili degerlerin ComboB’ye aktarilmasini istiyorsaniz
Sub comboA_click()
comboB.AddItem comboA.text
end sub
Birden fazla sütun içeren combolar nasıl yapılır?
Projenize Microsoft Forms 2.0 control ekleyin, oradaki
combo multi-column destekler.
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 nasıl yapılır?
Private Sub Form_Activate()
Dim s As String
Label1.Caption = “Visual Basic 2000″
For i = 1 To Len(Label1)
s = s & Mid$(Label1, i, 1) & vbCrLf
Next
Label1 = s
End Sub
dikkat: Label’i dikine çekmelisiniz
Joker karakterler kullanarak string nasıl aranir?
Dim Mystr As String
Mystr = “Hakan”
If Mystr Like “H*” Then
MsgBox “Bulundu”
Else
MsgBox “Bulunamadi”
End If
Her dile uyumlu tarih nasıl formatlanir?
Command1.Caption = Format$(Date, “Short Date”)
Uyari isareti olan (X) mesaj kutusu nasıl yapılır?
MsgBox “Mesaj Buraya!!”, vbCritical, “Önemli”
Sadece **** gösteren text kutusu nasıl yapılır?
Textbox’un PasswordChar property’sini “*” karakterine esleyin.
Içine tab yerlestirebileceginiz text kutulari nasıl yapılır?
Bir form içindeki tüm kontrollerin tabstoplarini False’e esitleyin
Text kutulari için kisayol tuslari nasıl belirlenir?
Kisayol tusuna sahip bir label hazirlayin ve label’in tabindex’ini textbox’un tabindexinden
bir asagiya esitleyin.
Text1 içerigi Text2 içine nasıl kopyalanir?
VB6.0 kullaniyorsaniz Replace Function ise yarar:
Text2 = Replace(Text1, vbCrLf, “” & vbCrLf)
Diger VB’lerde vbCrLf’leri bulmak için asagidaki kod kullanilir:
Dim sString As String
Dim sNewString As String
sString = Text1
While Instr(sString, vbCrLf)
sNewString = sNewString & Left(sString, _
Instr(sString, vbCrLf) - 1) & “” & vbCrLf
sString = Mid(sString, Instr(sString, vbCrLf) + 2)
Wend
Text2 = sNewString
Command butondan popup menü nasıl yapılır?
Öncelikle menü editör ile bir menü yaratin.
Asagidaki gibi:
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:
Private Sub mnuSub_Click(Index As Integer)
Call MsgBox(”Kliklenen menü: ” & Index + 1, vbExclamation)
End Sub
