yeni_baslayanlar_icin_ipucu.htm
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
 

Kod Alanı:

 
Clipboard.Clear



 


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



 


 

Yardım İçin Sadece Bir Tık Yeter
 
Sponsor
 
.tk
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol