SLM ARKDAŞLAR...
KONUNUN BAŞINA ALINTIDIR DİYE YAZIORUM'Kİ SONRA KİMSE EMEK HIRSIZI DİYE ANIRMASINLAR




Listbox'a degisik renklerde item nasil eklenir?
MSFlexGrid control kullanin


Form close butonu nasil calistirilir?
dim bClose as Boolean
Form'un QueryUnload event'ine ekle:
If bClose = false then cancel = true


Text dosyasina cift tirnak isaretleri olmadan nasil string girisi yapilir?
Write # statement yerine Print # statement kullan
Print # statement stringlerin etrafina cift tirnak koymaz


Bir combo'nun icini diger bir combo'dan aldiklarinizla nasil doldurursunuz?
Sub comboA_click()
comboB.text = comboA.text
End sub

Eger ComboA'daki secili degerlerin ComboB'ye aktarilmasini istiyorsaniz
Sub comboA_click()
comboB.AddItem comboA.text
end sub



Birden fazla sutun iceren combolar nasil yapilir?
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" 'sutun genisligi
Combo1.AddItem "Ivir zivir"
Combo1.List(0, 1) = "Ivir zivir"


Dikine uzanan label nasil yapilir?
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 cekmelisiniz


Joker karakterler kullanarak string nasil aranir?
Dim Mystr As String
Mystr = "Hakan"
If Mystr Like "H*" Then
MsgBox "Bulundu"
Else
MsgBox "Bulunamadi"
End If


Her dile uyumlu tarih nasil formatlanir?
Command1.Caption = Format$(Date, "Short Date")


Uyari isareti olan (X) mesaj kutusu nasil yapilir?
MsgBox "Mesaj Buraya!!", vbCritical, "Onemli"


Sadece **** gosteren text kutusu nasil yapilir?
Textbox'un PasswordChar property'sini "*" karakterine esleyin.


Icine tab yerlestirebileceginiz text kutulari nasil yapilir?
Bir form icindeki tum kontrollerin tabstoplarini False'e esitleyin

Text kutulari icin kisayol tuslari nasil belirlenir?
Kisayol tusuna sahip bir label hazirlayin ve label'in tabindex'ini textbox'un tabindexinden
bir asagiya esitleyin.


Text1 icerigi Text2 icine nasil kopyalanir?
VB6.0 kullaniyorsaniz Replace Function ise yarar:

Text2 = Replace(Text1, vbCrLf, "" & vbCrLf)

Diger VB'lerde vbCrLf'leri bulmak icin 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 menu nasil yapilir?

Oncelikle menu editor ile bir menu 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 menu: " & Index + 1, vbExclamation)

End Sub

Private Sub Command1_Click()
Call PopupMenu(mnuBtn)
End Sub

Not: Isterseniz daha guzel etki icin "Call PopupMenu(mnuBtn)" cagrisi yerine

Call PopupMenu(Menu:=mnuBtn, X:=Command1.Left, Y:=Command1.Top + _
Command1.Height)

cagrisini yada;

Call PopupMenu(mnuBtn, vbPopupMenuCenterAlign, Command1.Left + _
(Command1.Width / 2), Command1.Top + Command1.Height)

cagrisini kullanin.



Text kutusunda olan degisiklik nasil farkedilir?

'Amac kullaniciyi yaptigi degisiklikler konusunda programi kapatmadan uyarmaktir.

Public Degisti As Boolean 'Bu degisken textbox'ta 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 calisabilsin. (Bu Onemli!!!!)
'Bunu sadece buradaki If - End If blogu arasina yaz
End If
End If
End Sub


Calisma aninda Statusbar icerigi nasil degistirilir?
Statusbar1.Panels(1).Text = "Ivir zivir"


Listbox'a bir text dosyasi icerigi nasil yuklenir?
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 icin Undo (geri al) fonksiyonu nasil kullanilir?
'Bir Windows API undo islemi yapar

'asagidaki deklerasyonlari yaz
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

Global Const WM_USER = &h400
Global Const EM_UNDO = WM_USER + 23

' Undo Sub 'lara asagidaki kodu yaz
UndoResult = SendMessage(myControl.hWnd, EM_UNDO, 0, 0)

'UndoResult = -1 olursa hata var demektir
'UndoResult sadece bir rakamdir ve hic bir onemi yoktur. Sadece yer tutmasi icin yazilir.
'VB'nin buna benzer gariplikleri vardir. Bir amaci varsa da ben bilmiyorum


Clipboard'dan text nasil kopyalanir?
'Textbox'ta texti isaretle ve isaretlenen yeri clipboard'dan kopyaladiginla degistir:

txtBox.SelText = Clipboard.GetText

'Yada tum text'i clipboarddan aldiginla degistir.

txtBox.Text = Clipboard.GetText

Clipboard'a text nasil kopyalanir?
'Once clipboard'u temizle
Clipboard.Clear

'Sonra kopyalanacak alani sec ve clipboard'a kopyala
Clipboard.SetText txtBox.Text, vbCFText


Toolbar'in click olayi nasil kodlanir?

Private Sub Toolbar1_ButtonClick(ByVal Button As Button)

'button clicklerini saptamak icin:

Select Case Button.Key
Case Is = "Exit"
If MsgBox("Cikmak istiyor musunuz??", vbQuestion + vbYesNo + _
vbDefaultButton2, "Programdan cikiyorsunuz!") = 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


Cdbl ile Val fonksiyonlari arasindaki fark nedir?
print Val("12345")
12345

print Val("12,345")
12

print CDbl("12,345")
12345

print CDbl("12345")
12345


Dogum gununden kisinin yasi nasil hesaplanir?
'Text'i Date data turune cevir

Dim Birth as Date
Birth = DateValue(txtDOB)

'Yasi hesapla
Dim Age as Integer
Age = Int(DateDiff("D", Birth, Now) / 365.25)


4 rakamli tarih nasil kontrol edilir?

Public Function ValidDate(MDate)

'Amac: 4 digitli "yyyy" formatindaki tarihi kontrol etmek; hata var ise kullaniciyi uyarmaktir.
'Input: Texbox'tan string
'Output: True yada False
'Default : False

ValidDate = False

'Eger uzunluk "m/d/yyyy" 'den kisa ise fonkiyondan cik
If Len(MDate) < 8 Then Exit Function

'Gecerli bir tarih turu girilmemisse terket
If IsDate(MDate) = False Then Exit Function

'Sonu "yyyy" ile bitmiyorsa yada baslamiyorsa terket
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


'Tum bu testlerden gecilirse True yukle
ValidDate = True
End Function


Hata kontrol bloklari nasil denetlenir?
'error kodunu baslat
On Error GoTo HataKontrol

'Buraya program kodlarini gir. Buradan sonrasi artik hata denetimine aciktir.
'Hata kontrolundan cikmak istersen 0 (sifir) a git
On Error GoTo 0 : Exit Function ' ve fonksiyonu terket

:HataKontrol
Dim strErr As String

'Kullaniciya olusan hata ve tanimini ver
strErr = "Hata olustu: " & Err.Number & " " & Err.Description
MsgBox strErr, vbCritical + vbOK, "Hata!"


Web adresleri nasil acilir?
'Asagidaki kodu bir kontrolun click event'ine yaz
Dim iRet As Long
Dim Cevap As Integer

Cevap = MsgBox("www.hakanersoz.com adresini acmak istiyor musunuz?", vbInformation + vbYesNo, "www.hakanersoz.com")

Select Case Cevap
Case vbYes
iRet = Shell("start.exe http://www.hakanersoz.com", vbNormal)
Case vbNo
Exit Sub
End Select


10, 100, 1000 gibi rakamlara en yakin sayi nasil yuvarlanir?

'Ornek 100' yuvarla:
Round(RatioBolus * Val(txtDW), 100)

'BAS module'u icine yaz
Public Function Round(Dose, Factor)
'Amac: Sayiyi yuvarlamak
'Girdi: Sayi, Factor (10, 100, 1000, etc)
'Cikti: Yuvarlanmis sayi

Dim Temp As Single
Temp = Int(Dose / Factor)
Round = Temp * Factor
End Function


Menuye 13x13 bitmaplar nasil eklenir?

'Bir Picturebox control ekle
'Autosize ozelligini 'True' yap unutma: bitmap olacak (Icon degil)
'maximum 13X13 bitmap olmali.

'Asagidaki deklerasyonlari bir Bas modulune ekle:
'Bu ornek VB4 icindir

Private Declare Function VarPtr Lib "VB40032.DLL" (variable As Any) As Long
Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long

Const MF_BYPOSITION = &H400&
'form load event icine asagidaki kodu yerlestir

Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long
mHandle = GetMenu(hwnd)
sHandle = GetSubMenu(mHandle, 0)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imOpen.Picture)
lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)
lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture)
lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture)
sHandle = GetSubMenu(mHandle, 1)
sHandle2 = GetSubMenu(sHandle, 0)
lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture)


Calisma aninda menu nasil olusturulur?

Dim index As Integer
index = mnuHook.Count
Load mnuHook(index)
mnuHook(index).Caption = "New Menu Entry"
mnuHook(index).Visible = True

'Yeni girdiler mnuHook 'dan sonra olusur. Ancak unutmayin mnuHook halihazirda varolan bir menu elemanidir.


Text nasil sifrelenir?
'encryption function :

Public Function Encrypt(ByVal Plain As String)
For I=1 To Len(Plain)
Letter=Mid(Plain,I,1)
Mid(Plain,I,1)=Chr(Asc(Letter]1)
Next
Encrypt = Plain
End Sub

Public Function Decrypt(ByVal Encrypted As String)
For I=1 to Len(Encrypted)
Letter=Mid(Encrypted,I,1)
Mid(Encrypted,I,1)=Chr(Asc(Letter)-1)
Next
Decrypt = Encrypted
End Sub

Print Encrypt("This is just an example")
Print Decrypt("Uijt!jt!kvtu!bo!fybnqmf")


Form nasil yavas yavas karartilir? (Fade to black)

Sub FormFade(frm As Form)
' Formu yavas yavas karartir

For icolVal% = 255 To 0 Step -1
DoEvents
frm.BackColor = RGB(icolVal%, icolVal%, icolVal%)
Next icolVal%
End Sub


Formun caption'una nasil kayan yazi yazilir?

Sub KayanYazi(frm As Form)
Dim X As Integer
Dim current As Variant
Dim Y As String
Y = frm.Caption
frm.Caption = ""
frm.Show
For X = 0 To Len(Y)
If X = 0 Then
frm.Caption = ""
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo bitti
Else: End If
frm.Caption = left(Y, X)
current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
bitti:
Next X
End Sub


Verilen kredi karti numarasinin gecerli olup olmadigi nasil anlasilir?
'Asagidaki fonksiyonu bir BAS modulu icine kopyala
'Not: Tum kredi kartlari belli bir algoritma ile uretilir. Rastgele sayilar bu algoritmaya uymaz. Bu fonksiyon bu hesaplamalari yapar
'Asagidaki Sub bir command butonuna ait olabilir. Kliklendiginde verilen kart numarasini kontrol eder.

Sub KartKontrolu_Click ( )
'KartGecerli degiskeni True olur eger fonksiyon dogru deger cevirirse
Dim KartGecerli as Boolean
KartGecerli = GecerliKartNumarasimi("4552012301230123")
If KartGecerli then
Msgbox "Gecerli kart"
else
Msgbox "Aman dikkat. Bu kart gecersiz!!!"
End if
End Sub

Public Function GecerliKartNumarasimi(ByVal pCardNumber As String) As Boolean

Dim CharPos As Integer
Dim CheckSum As Integer
Dim tChar As String

For CharPos = Len(pCardNumber) To 2 Step -2
CheckSum = CheckSum + CInt(Mid(pCardNumber, CharPos, 1))
tChar = CStr((Mid(pCardNumber, CharPos - 1, 1)) * 2)
CheckSum = CheckSum + CInt(Left(tChar, 1))
If Len(tChar) > 1 Then CheckSum = CheckSum + CInt(Right(tChar, 1))
Next

If Len(pCardNumber) Mod 2 = 1 Then CheckSum = CheckSum + CInt(Left(pCardNumber, 1))

If CheckSum Mod 10 = 0 Then
IsValidCreditCardNumber = True
Else
IsValidCreditCardNumber = False
End If

End Function



Ayin son gunu nasil bulunur?
Public Function AyinSonGunu(ByVal GecerliTarih As Date) As Byte
Dim SonGun As Byte
SonGun = DatePart("d", DateAdd("d", -1, DateAdd("m", 1, _
DateAdd("d", -DatePart("d", GecerliTarih) + 1, Date))))
AyinSonGunu = SonGun
End Function

Private Sub Command1_Click()
MsgBox Date & " tarihine ait ayin son gunu : " & AyinSonGunu(Date)
End Sub


VB6 projeleri VB5'te nasil acilir?
Notepad yada baska bir editor ile VB 6.vbp dosyasini acin ve bu dosyadaki
'Retained = 0' satirini silip dosyayi kaydedin.
Artik VB6 projelerini VB5'te acabilirsiniz.


MDB veritabanlarinda hataya neden olan Null field degerlerinden nasil kurtulunur?
Default deger olarak Access string alanlari NULL deger tasir (Cift tirnak yani bos string girilmedikce)
Null deger tasiyan bir alani recordset araciligiyla bir string icine kopyalamak istediginizde (sanirim bircogunuz bunu gormustur) runtime type-mismatch hatasi olusur. Bundan kurtulmanin en kolay yolu & karakteri kullanarak her alan basina cift tirnak (yani bos string) eklemektir. Asagidaki ornek gibi:

Dim DB As Database
Dim RS As Recordset
Dim sAd As String
Set DB = OpenDatabase("Test.mdb")
Set RS = DB.OpenRecordset("Ad")
sAd = "" & RS![Adi Soyadi] ' Adi Soyadi alani icine "" ekleniyor, boylece null deger yokediliyor.



Ekran cozunurlugu nasil bulunur?
Genelde ekran cozunurlugune gore programlarinizdaki nesneleri resize etmek oldukca kullanisli bir yoldur.

Ekran cozunurlugunu soyle bulursunuz:
Asagidaki kodu form_load'a yazarsaniz her acilista ekran cozunurlugunu kontrol eder.

Genislik = Screen.Width Screen.TwipsPerPixelX
Yukseklik = Screen.Height Screen.TwipsPerPixelY

Ekran_Cozunurlugu = Genislik & "x" & Yukseklik

Sonuc asagidaki gibi olur:

800x600


Veritabanina nasil daha hizli ulasilir?

Bir recordset icinde daha hizli dongu calistirmak icin bir yol var. Genelde bir cok programci asagidaki kodu kullanir:

Do While Not Records.EOF 'Dosya sonuna kadar dongu baslat
Combo1.AddItem Records![Firma Adi] 'Combo'ya Records recordset'inin [Firma Adi] adli alanini ekle
Records.Movenext 'Bir sonraki kayda git
Loop

Buradaki problem her defasinda veritabaninin bir sonraki kayda gitmek icin dosya sonuna ulasip ulasmadigini kontrol etmek zorunda olmasidir. Bu zorunluluk ozellikle cok buyuk veritabanlarinda buyuk performans kayiplarina neden olur. Cozum ise once kayit adedini RecordCount ile bulmak ve For ---- Next dongusu ile kayit okumaktir :

Records.MoveLast ' Recordset'in sonuna giderek kac adet kayit oldugunu bulmalisiniz. Bu islemin bir kez yapilmasi yeterlidir.
KayitSayisi=Records.RecordCount 'Kayit sayisi bir long degisken icine alindi
Records.MoveFirst 'Ilk kayda gel

For i =1 To KayitSayisi 'Simdi kayitlari EOF telasi olmadan birer birer okuyalim
Combo1.AddItem Records![Firma Adi]
Records.MoveNext
Next

Iste size garantili %33'luk performans artisi



Gokkusagi renklerinde text nasil olusturulur?

1. Standart EXE projesi baslat
2. Asagidaki kodu Form'un Paint proc'una yaz:

Sub Form_Paint()
Dim I As Integer, X As Integer, Y As Integer
Dim C As String
Cls
For I = 0 To 91
X = CurrentX
Y = CurrentY
C = Chr(I)
Line -(X + TextWidth(C), Y = TextHeight(C)), QBColor(Rnd * 16), BF
CurrentX = X
CurrentY = Y
ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Print "Merhaba Basic Programciligi"
Next
End Sub

3. Projeyi calistirirsaniz formun degisik renklerde yaziyla kaplandigini gorursunuz.
and watch the form fill with lots of multi-coloured text



Text kutusundaki bosluklar nasil yokedilir?
Kullanicilarin text kutusuna bosluk karakteri girmelerini engellemek icin :
Textbox 'un KeyPress olayina asagidaki kodu yaz:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
KeyAscii = 0
End If
End Sub



Tek harekette text dosyasi nasil yuklenir?
FileText fonksiyonunu kullanarak istediginiz dosyayi acar ve textbox icine yerlestirirsiniz.
Fonksiyonu Bas modulu icine yaz

Function FileText (filename$) As String
Dim dosya As Integer
dosya = FreeFile
Open filename$ For Input As #dosya
FileText = Input$(LOF( dosya), dosya)
Close # dosya
End Function

Text1.Text = FileText("c:autoexec.bat") 'Text1 textbox'una tek hamlede autoexec.bat icerigi yuklenir.



Windows Control Panel (Denetim masasi) uzantilari VB ile nasil acilir?

Option Explicit
Private strPanelAdi As String
Private Sub Command1_Click()

strPanelAdi = File1.filename
If strPanelAdi = "" Then
MsgBox "Bir .CPL dosyasi secilmedi." & vbCrLf & _
"Windows Control Panel aciliyor.",vbInformation
End If
Shell "rundll32.exe shell32.dll,Control_RunDLL " & _
strPanelAdi, vbNormalFocus
End Sub

Private Sub Form_Load()
With File1
'Sadece Control Panel uzantili dosyalari goster
.Pattern = "*.CPL"
'FileListBox yalnizca System yada System32 dizinini hedef alsin:
.Filename = "C:WindowsSystem"
End With
End Sub


Bellegi bosaltmak icin tum formlar nasil unload edilir?

Public Sub UnloadAllForms()
Dim Form As Form
For Each Form In Forms
Unload Form
Set Form = Nothing
Next Form
End Sub

Bu proseduru calistirmak icin en uygun yer ana formun unload event'idir



Kontroller nasil tasinabilir? (Drag&Drop)

Burada bir picturebox form uzerinde drag&drop ile tasinmaktadir.

Option Explicit
Public globalX As Integer
Public globalY As Integer

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Picture1.Move X - globalX, Y - globalY
End Sub

Private Sub Picture1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Picture1.Drag vbBeginDrag
globalX = X
globalY = Y
End Sub


Kendi Popup menunuz bir textbox icinde nasil gosterilir?

Bu ipucu ile standart Windows pop up menusunu bastirir kendi popup menunuzu calistirirsinz.

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then
With Text1
.Enabled = False
PopupMenu
.Enabled = True
.SetFocus
End With
End If
End Sub


Mesaj kutusunun ileri ozellikleri nasil kullanilir?

Dim Msg, Style, Title, Help, Ctxt, Cevap, MyString
Msg = "Devam edelim mi ?" ' Mesaji tanimla
Style = vbYesNo + vbCritical + vbDefaultButton2 'Butonlari tanimla
Title = "MsgBox Gosterimi" ' Title tanimla
Help = "DEMO.HLP" 'Bir help dosyasi bagla
Ctxt = 1000 ' Baslik tanimla

Cevap = MsgBox(Msg, Style, Title, Help, Ctxt) 'Masaji goster ve kullanici cevabini bekle
If Cevap = vbYes Then ' Kullanici evet'i secti
MsgBox "Kabul ettiniz" ' Karsilik ver
Else ' Tersi durumda kullanici hayir'i secmis demektir
MsgBox "Kabul etmediniz" ' Karsilik ver
End If



Menulerde seperator (ayrac) nasil yapilir?

mnu.Caption="-"


Bir textboxta tum harfler nasil kucukharfe cevirilir?

Eskiposizyon = Text1.SelStart
Text1.Text = LCase(Text1.Text) 'Ust karakter icin UCase kullanilir
Text1.SelStart = Eskiposizyon



Listbox'taki tum elemanlar nasil secilir?

'Asagidaki kodu cmdYeniEkle_Click() yordamina yaz

List1.AddItem Text1.Text ' Yeni bir item ekle

'Asagidaki kodu cmdTumunuSec_Click() yordamina yaz

For x = 0 To List1.ListCount - 1
List1.Selected(x) = True ' item(x) sec
Next x


Listview'deki satirlarin kac tane oldugu nasil sayilir?

lItemCount = lstCount.ListItems.Count

Msgbox lItemCount




Picturebox'a calisma aninda nasil resim eklenir?

Picture1.Picture = LoadPicture("c:xxxxxx.bmp")



Picturebox'tan calisma aninda nasil resim silinir?

Picture1.Picture = LoadPicture("")



Form konfetti ile nasil doldurulur?


DrawWidth = 5 ' noktaciklarin genisligi
Dim x As Long
Dim y As Long
Dim r As Integer
Dim g As Integer
Dim b As Integer

Randomize
Do
x = Val(Screen.Width) * Rnd
y = Val(Screen.Height) * Rnd
bir sonraki noktacigin rengi rastgele secilir
r = 255 * Rnd
g = 255 * Rnd
b = 255 * Rnd
Form1.PSet (x, y), RGB(r, g, b)
Loop


Form uzerindeki Picturebox nasil ortalanir?

Picture1.Left = (Form1.Width - Picture1.Width) / 2


Clipboard kullanarak bir Picturebox icerigi resim diger bir picturebox'a nasil kopyalanir?

Command1_Click()
Clipboard.Clear 'Clipboard'i mutlaka sil
Clipboard.SetData Picture1.Picture

Command2_Click()
Picture2.Picture = Clipboard.GetData ' Clipboard icerigini Picture2 icine yapistir.


Bir string'in uzunlugu nasil tespit edilir?

Dim i As Long
i = Len(sSizinStringiniz)


Mouse pointer nasil saklanir?
Bu is icin ShowCursor API'si kullanilir. Asagidaki kodu bir module icine yaz:

Declare Function ShowCursor Lib "user32" (ByVal bShow
As Long) As Long

Bu kod mouse imlecini saklar:
FareImleci = ShowCursor(False)

Bu kod mouse imlecini gorunur hale getirir:
FareImleci = ShowCursor(True)


Programiniz disinda keypress nasil saptanir?

GetAsyncKeyState API'si kullanilir. Asagidaki kodu module icine yazin

Declare Function GetAsyncKeyState Lib "user32"
(ByVal vKey As Long) As Integer


' Asagidaki constant TAB tusu icin. Diger tuslar icin
' API Text Viewer'i kullanin

Public Const VK_TAB = &H9

'Timer1_Timer() icine asagidaki kodu ekleyin

If GetAsyncKeyState(VK_TAB) Then
Beep ' TAB'a basilirsa beep
End If




Yazdirma islemi nasil iptal edilir?
'Bu ornekte ayrica birden fazla sayfanin nasil yazilacagi da gosteriliyor

Printer.Print "Page 1"
Printer.Newpage
Printer.Print "Page 2"
Printer.KillDoc



Resim nasil yazdirilir?

Printer.PaintPicture Picture1.Picture
Printer.EndDoc



Windows'un Belgeler icerigi nasil silinir?

Bir module asagidaki API deklerasyonunu ekle:

Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long,
ByVal pv As String)

Herhangi bir click icine de asagidaki kodu ekle:

SHAddToRecentDocs(2,vbNullString)



Windows'un Belgeler icine nasil ekleme yapilir?

Bir module asagidaki API deklerasyonunu ekle:

Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long,
ByVal pv As String)

Herhangi bir click icine de asagidaki kodu ekle:

Dim ekleme as String
ekleme="c:falan dizinfilan dosya.txt"

SHAddToRecentDocs(2,ekleme)



Alan adina gore bir Recordset icindeki kayitlar nasil siraya konur?

'Bu kod tum kayitlari Z-A (geriye dogru) siraya dizer

' A-Z (ileri dogru) sirasi isterseniz ,DESC yerine ASC kullanin.

Dim DB as Database
Dim Kayitlar as Recordset

Set Kayitlar = DB.OpenRecordset("SELECT * FROM _
Personel " & "ORDER BY Personel.Adi DESC;")

Personel tablosundan tum kayitlari Adi (personel adi) field degerine gore azalan (Z-A ) sekilde siraya dizer



Listbox'u Access (mdb) veritabanina nasil baglarsiniz?

On Error GoTo Hata_Kontrol

Dim DB as Database
Dim Kayitlar as Recordset
Dim X as Long, record_count as Long

'Veritabanini acalim

Set DB = OpenDatabase("Ogrenci.mdb", dbOpenSnapshot)
Set Kayitlar = DB.OpenRecordset("Ogrenciler")

' Dikkat ederseniz asagida yapilan islem once veritabaninin sonuna gitmek, RecordCount degerini
' ogrenmek ve sonra tekrar veritabani basina donmektir. Veritabani sonuna gitmeden kac adet kayit
' oldugunu ogrenemezsiniz.

Kayitlar.MoveLast
X = Kayitlar.RecordCount
Kayitlar.MoveFirst

' Listbox icine adlari yerlestirelim
' Ilk kayita geldikten sonra artik sirayla ogrenci adlarini listbox icine alabiliriz

Do
List1.AddItem Kayitlar!OgrenciAdi
Y = Y + 1
Kayitlar.MoveNext
Loop Until Y = X ' X = Recordcount, yani son kayit

Hata_Kontrol:
Select Case (Err)
Case 3021 ' Kayit yok
record_count = 0 'Kayit yoksa degeri 0 a esitleyelim.
Exit Sub
List1.Refresh
End Select



Iki integer degisken nasil swap (degistokus) edilir?

Asagidaki algoritma kullanilarak iki integer'in degerleri birbirine aktarilir

a = a Xor b

b = a Xor b

a = a Xor b





Bir form nasil asagi ve yukari katlanir? (acilista splash screen olarak kullanmak uzere..)

Sub FormuYukariKatla(frm As Form, yukari As Integer)

' Formunuzun Scalemode property'sine dikkat edin. Eger degeri pixel ise
' ve siz twip deger kullanirsaniz form sonsuz bir dongu icinde katllanir.
' formunuzun ne kadar katlanmasini istiyorsaniz yukari degerini o kadar yukseltin
' Acilista splash screen olarak kullanilir...

Dim NereyeKadar

NereyeKadar = frm.Height - yukari
If NereyeKadar