WarTurks Yazılım&Programlama
Yazılım&Programlama  
  Ana Sayfa
  Paralı Hizmetlerimiz
  Visual Basic'e Giris
  VB İndirmeli Dersler[Artık Tüm Dersler Burda]]
  Visual Basic 6 Dersleri
  Visual Basic 6 Dersleri 2
  => Visual Basic Tv Programi Yapmak
  => Winamp Yapimi.
  Visual Basic Ders Notlari[Resimli]
  Pascala Giris
  Pascal Dersleri
  Php'ye Giris
  Php Dersleri
  C ve C++'ya Giris
  C ve C++ Dersleri
  C++ Ders Notlari [Resimli]
  İletişim
Visual Basic 6 Dersleri 2

Bu sayfada bulunan  ders başlıkları şunlar:

Goto Deyimis
Mouse Up
Mouse Move
Text Yazılan Dosyayı Açma
Exe Çalıştırıcısı Yapmak
Göz Kırpan Yazı Yapma
Kaliteli Forumlar Skinler:
ListBox'a eleman ekleme örneği
Mouse Üzerine Gelince Yanıp Sönen Label
Notebook batarya durumunu test etme
Vusial Basic 6 Sanal Klavye Yapımı
Bütün Özellikleri Bir Komutta Atamak (With ---End With yapısı)
3D Zar Yapmak
Form Üzerinde rastgele Sağa Sola Çarpan Top
Kapat Butonunu Pasif Yapma
ADODB Bağlantısına Örnek

CTRL+F YAPIP BURADAKİ HANGİ BAŞLIK İŞİNE YARIYORSA ONUN ADINI YAZIP
HIZLI BİR ŞEKİLDE İSTEDİĞİNE ULAŞABİLİRSİN


__________________________________________________

Goto Deyimi




-----------------------------------------------------------------------------------------------------------
Arkadaşlar mükemmel bir kitap.Tam 952 sayfa.Baştan sona herşeyi anlatıyor.
kurulum
çalışma ortamı
temeller
kontroller
formlar
fonksiyonlar
activeX bileşenleri
dosyalar
veritabanı yaratmak
ADO ve erişim yöntemleri
raporlama
DLL ve API


Buyrun Link:  
http://s2.dosya.tc/file/xFcoOy/Visual_Basic_6.rar.html
VirüsTotal: http://www.virustotal.com/file-scan/report.html?id=21c3951099b27c5293bc13f33126a97c3d1fe05b19a8e08f786ba4662427b065-1290205998
------------------------------------------------------------


-------------------------------------------------------------
Mouse Up

Form yada kontrol üzerinde farenin basılı olan tuşunun bırakılması olayı.

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

‘ Form üzerinde farenin basılı tuşunun basılması ile yapılacak işlemler

End Sub
-----------------------------------------------------------
Mouse Move

Fare işareçisinin form yada kontrol üzerinde yer değiştirmesi


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

‘ Fare işaretçisinin formun üzerinde hareket etmesi ile yapılacak işlemler

End Sub
--------------------------------------------------------------
Text Yazılan Dosyayı Açma

Bir Tane Command Açın Ve Text Açın Command içine

Shell text1.text

Yazın Bitti
-----------------------------------------------------------
Exe Çalıştırıcısı Yapmak

Formunuza birer adet DriveListBox, DirListBox, FileListBıx, CommandButton ve iki adet Label ekleyin ve sonra aşağıdaki kodları ilgili nesnelere tıklayarak yazın.

Private Sub Command1_Click()
Shell File1.
FileName
End Sub
Private Sub Dir1_Change
()
File1.Path Dir1.
Path
ChDir Dir1
.
Path
File1
.Pattern 
"*.exe"
End Sub
Private Sub Drive1_Change
()
On Error GoTo Hata
Dir1
.Path Drive1.
Drive
ChDrive Drive1
.
Drive
Hata
:
If 
Err.Number 68 Then MsgBox "Lütfen sürücüyü kontrol edin"16
"Sürücü kontrol"
End Sub
Private Sub File1_Click
()
Label2 File1.
FileName
End Sub
Private Sub Form_Load
()
Label1.Caption 
"Çalıştırılacak Program:"
End Sub 
-----------------------------------------------------------------
Göz Kırpan Yazı Yapma



-----------------------------------------------------------
Kaliteli Forumlar Skinler:

oncelikle http://rapidshare.com/files/1141949/ActiveSkin.zip.html
dosyasini indirin...

zip'li dosyadaki 3DSKINS.EXE ile active skin destegini kurun(en fazla 30sn surer)...
islem bittikten sonra activeskin_4.3_patch.exe dosyasi ile active
skin ocx (c:windowssystem32actskn43.ocx) dosyanizi crackleyin

su andan itibaren active skin'i full olarak kullanabilirsiniz...peki
uygulamalarimiza bunu nasil eklicez?

COK BASIT

VB'de standart bir project acin... CTRL + T kombinasyonu ile
acilan COMPONENTS penceresinden ACTIVE SKIN 4.3 TYPE LIBRARY'i
projenize ekleyin...



gordugunuz gibi formun yanindaki toolbara skin nesnesi geldi...

form'unuzun kod kismina bu kodu ekleyin...

Private Sub Form_Load()
FileName = "C:Program FilesActiveSkin 4.3Skinschizh.skn"
Skin1.LoadSkin FileName
Skin1.ApplySkin Me.hWnd
End Sub

işte calistiginda karsilacaginiz yeni formunuz


-----------------------------------------------------------------------------------------------------------------------------------------
Bilgisayari kapama kodu

Shutdown computer


__________________________________________________
ListBox'a eleman ekleme örneği

Private Sub Command1_Click()
List1.AddItem Text1
List2.AddItem Text2
End Sub

Private Sub Command2_Click()
If List1.ListIndex = -1 Or List2.ListIndex = -1 Then MsgBox ("silinecek kişinin adını ve soyadını işaretlendirin"): Exit Sub
List1.RemoveItem List1.ListIndex
List2.RemoveItem List2.ListIndex
End Sub



Private Sub Command3_Click()
Text1 =
""
Text2 = ""
Text1.SetFocus
End Sub

Private Sub Command4_Click()
c =
MsgBox("çıkmak istediğinizden eminmisiniz", vbYesNo + vbQuestion, "çıkış bölümü")
If c = 6 Then End
End Sub

Private Sub Command5_Click()
c =
MsgBox("tüm liste silinecek eminmisiniz", vbYesNo + vbQuestion, "uyarı")
If c = 6 Then GoTo devam
Exit Sub
devam:
c =
MsgBox("son kararınmı", vbYesNo + vbExclamation, "günaah benden gitti")
If c = 6 Then List1.Clear: List2.Clear
End Sub

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List2.ListIndex = List1.ListIndex

End Sub



Private Sub List2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.ListIndex = List2.ListIndex

EndSub
__________________________________________________
Mouse Üzerine Gelince Yanıp Sönen Label

Yanıp sönen label

Private Sub Command1_Click()
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
End Sub

Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed

________________________________________________________
Notebook batarya durumunu test etme

Private
Type SYSTEM_POWER_STATUS
ACLineStatus
As Byte
BatteryFlag
As Byte
BatteryLifePercent
As Byte
Reserved1
As Byte
BatteryLifeTime
As Long
BatteryFullLifeTime
As Long
End
Type
Private
Declare Function GetSystemPowerStatus Lib "kernel32" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long
Private
Sub Form_Paint()
'Sistem Güç durumunu öğrenmek içIn API
'Çeviren : By. Di@BLo
Dim SPS
As SYSTEM_POWER_STATUS
'Batarya durumu okunuyor...
GetSystemPowerStatus SPS
Me.AutoRedraw = True
'Bilgiler gösteriliyor
Select
Case SPS.ACLineStatus
Case 0
Me.Print "AC Güç Durumu: Offline"
Case
1
Me.Print "AC Güç Durumu: OnLine"
Case
2
Me.Print "AC Güç Durumu: Bilinmiyor"
End
Select
Select
Case SPS.BatteryFlag
Case 1
Me.Print "Batarya Şarj Durumu: Tam Dolu"
Case
2
Me.Print "Batarya Şarj Durumu: Düşük"
Case
4
Me.Print "Batarya Şarj Durumu: Kritik"
Case
8
Me.Print "Batarya Şarj Durumu: Şarj Oluyor"
Case
128
Me.Print "Batarya Şarj Durumu: Batarya Yok!"
Case
255
Me.Print "Batarya Şarj Durumu: Bilinmeyen Durum"
End
Select
End Sub

____________________________________________________

 
'(sadece win xp için)



Shell "Shutdown.exe -s",vbMaximizeFocus

diğper parametreler

'-r - restart

'-l - logoff

'-f - force logoff



------------------------------------------------------------------------

(win 9x,win 2000)



Private declare function ExitWindowex lib "User32.dll" (byval dwOptions as long,

Byval DwReserved as long)



'adı cmdshutdown olan bit command button ekle



Private sub cmdShutdown_click()



  dim lng as long

  private const EWX_SHUTDOWN as long =1 

  

  lng = ExitWindowsEx(EWX_SHUTDOWN,0) 



End sub
Vusial Basic 6 Sanal Klavye Yapımı

Epey bir süre projelerimde kullanmak üzere (dokunmatik ekranlı) sanal klavye araştırması yaptım. Malesef hazır componentlerin dışında ciddi bir bilgiye ulaşamadım. Neredeyse tüm forumlarda bu yönde talep var fakat işe yarar cevap yok(en azından ben göremedim). Şimdi sizlere basit bir sanal klavye yapmaya çalışacağım.

ANA PROBLEM : Sanal klavyedeki ana problem herhangi bir TextBox ı tıkladıktan sonra açılan sanal klavyede basılan tuşa ait bilginin tam olarak ilgili formun ilgili TextBox ına nasıl yazdırılacağıdır. Diyelimki FORM1 in TEXT1 ine tıkladım ve karşıma Sanal Klavye çıktı. Sanal klavyenin "0" tuşuna bastım. Şimdi "0" sayısını FORM1 in TEXT1 ine nasıl atacağım. Eminim ki ilk cevap şu olacaktır. FORM1.TEXT1.TEXT="0". Evet doğru cevap. Peki 20 tane formunuz varsa ve herbirinde 10 ar adet TEXTBOX varsa nasıl olacak. Sanal klavye talebin hangi formun hangi TextBox ından geldiğini nasıl bilecek. Benim cevabım FOR EACH döngüsü kullanmak. İsterseniz sözü uzatmadan Talep eden FORM1 in kodlarını yazayım.
-----------------------------------------------------------------
Private Sub Text1_Click()
Text1.Text = "" 'Text i temizliyorum
Form2.Show 'Form2 (sanal klavye) yi açıyorum
Form2.Label1 = Me.Name 'Form2 nin Label1 ine mevcut formun
'adını yazdırıyorum
Form2.Label2 = "Text1" 'Form2 nin Label2 sinede şuan tıkladığım
'TextBox ın adını yazdırıyorum
End Sub
-----------------------------------------------------------------

Sanırım kodları açıklamama gerek yok.
Şimdi de Sanal klavyenin yani FORM2 nin kodlarını veriyorum. Form2 deki tek mantık şu :
İki Label ekliyorum ve birince Label'a Talebin geldiği formun adını , ikinci labelada talebin geldiği TextBox2'ın adını yukarıdaki kodlar ile yazdırıyorum. tebi projede bu iki Label 'i INVISIBLE yapacaksınız. Yani "Label1.Visinle=FALSE" gibi.

-------------------------------------------------------------------
Dim frm As Form
Dim txt As TextBox

Private Sub Command1_Click()
klavye (1)
End Sub

Private Sub Command2_Click()
klavye (2)
End Sub

Function klavye(tus As Long)
For Each frm In Forms 'Projedeki tüm formları tek tek tarıyorum
For Each txt In frm.Controls 'Herformdaki tüm textboxları tarıyorum
'Formadı ve TextBox adı Label1 ve Label2 de yazanlarla örtüşüyor ise
If (frm.Name = Label1.Caption) And (txt.Name = Label2.Caption) Then
txt.Text = txt.Text + Str(tus) 'İlgili TextBoxa basılan tuşu ekliyorum.
GoTo cik
End If
Next
Next
cik:
End Function

---------------------------------------------------------------------

İşinize yaraması ümidi ile.
_______________________________________________________________

Değişkenleri Karşılaştırmal İçin Like Komutu

Siz hala........değişkenleri karşılaştırmak için IF komutunu mu kullanıyorsunuz. Eğer öyle ise size daha hızlı bir yol öneriyoruz: Like. Kafanız karışmasın aslında komutun yaptığı işlem IF ile hayli farklı ama yine de bir karşılaştırma komutu. Komutun yaptığı iş VB?de pek de kullanılmayan "numune"leri değişkenlere karşılaştırmak aşağıdaki kodlara bakarsanız ne demek istediğimi anlayacaksınız:
Deger = "aBBBa" Like "a*a"	' Doğru döndürür.
Deger = "F" Like "[A-Z]"		 ' Doğru döndürür.
Deger = "F" Like "[!A-Z]"	' Yanlış döndürür
Deger = "a2a" Like "a#a"		' Doğru döndürür.
Deger = "aM5b" Like "a[L-P]#[!c-e]"	' Doğru döndürür.
Deger = "BAT123khg" Like "B?T*"	' Doğru döndürür.
Deger = "CAT123khg" Like "B?T*"	' Yanlış döndürür

________________________________________
Bütün Özellikleri Bir Komutta Atamak (With ---End With yapısı)
VB?nin her yeni sürümü ile programcıların işini daha da kolaylaştıracak komutlar ve özellikler geliyor. İşte With (Birlikte) komutu bunlara en güzel örnek. Şimdi aşağıdaki satırları inceleyin ve bazı komutların ne kadar gereksiz olarak kullanıldığını görün:
Private Sub Form_Load()
Form1.Height = 4000
Form1.Caption = "With Örneği"
Form1.BackColor = QBColor(6)
End Sub

Burada dikkat ettiğiniz gibi "Form1" nesnesi her satırda tekrarlanmış. VB 4.0 ile bu soruna bir çözüm getirilerek With komutu yaratılmıştır. Aşağıdaki örnek size bu komutun nasıl kullanıldığı hakkında fikir verecektir.
Private Sub Form_Load()
With Form1			'Form1'i kullanarak...
 .Height = 4000		'Yüksekliği 4000,
 .Caption = "With Örneği"	'Form başlığını "With Örneği",
 .BackColor = QBColor(6)	'Arkaplan rengini yeşil yap.
End With			?Komutu bitir
End Sub

Bu komutu kullanırken With ve End With satırları arasına yine With ve End With satırlarını girebilirsiniz fakat bu iki komut arasına komplike komutlar ve döngüler eklememelisiniz. Bu hem programınızı yavaşlatır hem de ciddi hatalara sebep olabilir.



--------------------------------------------------------------------------------------
3D Zar Yapmak
Option
Explicit



Private CenterX As Integer

Private CenterY As Integer

Private Size As Integer

Private renk As Boolean

Private Radius As Integer

Private Winkel As Integer

Private CurX As Integer

Private CurY As Integer

Private Pi As Double

Private Ecke(1 To 8, 1 To 3) As Integer

Private X(8) As Integer

Private Y(8) As Integer



Private Sub Form_Load()

With Me

.ForeColor = RGB(255, 255, 255)

.BackColor = RGB(143, 143, 143)

.AutoRedraw = True

.DrawWidth = 1

.ScaleMode = vbPixels

CenterX = .ScaleWidth / 2

CenterY = .ScaleHeight / 2

.Show

End With



With Combo1

.AddItem "renk"

.AddItem "kirmizi"

.AddItem "yesil"

.AddItem "mavi"

.AddItem "sari"

.AddItem "lila"

.AddItem "beyaz"

End With

Combo1.ListIndex = 4

renk = False



With Combo2

.AddItem "1"

.AddItem "2"

.AddItem "3"

.AddItem "4"

.AddItem "5"

.AddItem "6"

End With

Combo2.ListIndex = 1



Size = 200

Winkel = 0

Radius = Sqr(2 * (Size / 2) ^ 2)

Pi = Atn(1) * 4



Ecke(1, 2) = Size / 2

Ecke(2, 2) = Size / 2

Ecke(3, 2) = -Size / 2

Ecke(4, 2) = -Size / 2

Ecke(5, 2) = Size / 2

Ecke(6, 2) = Size / 2

Ecke(7, 2) = -Size / 2

Ecke(8, 2) = -Size / 2



Timer1.Interval = 1

End Sub



Private Sub WuerfelDrehen()

Dim i As Integer



Me.Cls



For i = 1 To 8

X(i) = CenterX + Ecke(i, 1) + Ecke(i, 3) / 8

Y(i) = CenterY + Ecke(i, 2) + Sgn(Ecke(i, 2)) * Ecke(i, 3) / 8

Next i



Line (X(3), Y(3))-(X(4), Y(4))

Line (X(4), Y(4))-(X(8), Y(8))

Line (X(3), Y(3))-(X(7), Y(7))

Line (X(7), Y(7))-(X(8), Y(8))

Line (X(1), Y(1))-(X(3), Y(3))

Line (X(1), Y(1))-(X(2), Y(2))

Line (X(5), Y(5))-(X(6), Y(6))

Line (X(5), Y(5))-(X(1), Y(1))

Line (X(5), Y(5))-(X(7), Y(7))

Line (X(6), Y(6))-(X(8), Y(8))

Line (X(2), Y(2))-(X(4), Y(4))

Line (X(2), Y(2))-(X(6), Y(6))

Line (X(4), Y(4))-(X(8), Y(8))

Line (X(3), Y(3))-(X(7), Y(7))



DoEvents

End Sub



Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

CurX = X

CurY = Y

If renk Then

Randomize Timer

Me.ForeColor = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

End If

End Sub



Private Sub Timer1_Timer()

Dim i As Integer



Select Case CurX

Case Is > ScaleWidth / 2

Winkel = Winkel + Abs(CurX - ScaleWidth / 2) / 20

If Winkel = 360 Then Winkel = 0

Case Else

Winkel = Winkel - Abs(CurX - ScaleWidth / 2) / 20

If Winkel = 0 Then Winkel = 360

End Select



For i = 1 To 3 Step 2

Ecke(i, 3) = Radius * Cos((Winkel) * Pi / 180)

Ecke(i, 1) = Radius * Sin((Winkel) * Pi / 180)

Next i



For i = 2 To 4 Step 2

Ecke(i, 3) = Radius * Cos((Winkel + 2 * 45) * Pi / 180)

Ecke(i, 1) = Radius * Sin((Winkel + 2 * 45) * Pi / 180)

Next i



For i = 5 To 7 Step 2

Ecke(i, 3) = Radius * Cos((Winkel + 6 * 45) * Pi / 180)

Ecke(i, 1) = Radius * Sin((Winkel + 6 * 45) * Pi / 180)

Next i



For i = 6 To 8 Step 2

Ecke(i, 3) = Radius * Cos((Winkel + 4 * 45) * Pi / 180)

Ecke(i, 1) = Radius * Sin((Winkel + 4 * 45) * Pi / 180)

Next i



Call WuerfelDrehen

End Sub



Private Sub Combo1_Click()

Select Case Combo1.ListIndex

Case 0

renk = True

Case 1

renk = False

Me.ForeColor = vbRed

Case 2

renk = False

Me.ForeColor = vbGreen

Case 3

renk = False

Me.ForeColor = vbBlue

Case 4

renk = False

Me.ForeColor = vbYellow

Case 5

renk = False

Me.ForeColor = vbMagenta

Case 6

renk = False

Me.ForeColor = vbWhite

End Select

End Sub



Private Sub Combo2_Click()

Me.DrawWidth = Combo2.ListIndex + 1

End Sub

----------------------------------------------------------------
Form Üzerinde rastgele Sağa Sola Çarpan Top
'formunuzun üzerine bir tane Timer1 yerleştirin sonra aşagıdaki kodları yazın.



Option Explicit



Private Const MERGEPAINT = &HBB0226

Private Const SRCAND = &H8800C6

Private Const SRCCOPY = &HCC0020

Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long





Private Const BallR = 10

Private Const BallD = 2 * BallR + 1

Private CurX As Single

Private CurY As Single

Private OldX As Single

Private OldY As Single

Private VelX As Single

Private VelY As Single

Private Xmax As Single

Private Ymax As Single



Private Sub DrawBall()



BitBlt picCanvas.hDC, _

OldX - BallR, OldY - BallR, BallD, BallD, _

picHidden.hDC, OldX - BallR, OldY - BallR, SRCCOPY

OldX = CurX

OldY = CurY





picCanvas.Circle (CurX, CurY), BallR





picCanvas.Refresh

End Sub





Private Sub Form_Load()



Width = (Width - ScaleWidth) + picCanvas.Width

Height = (Height - ScaleHeight) + picCanvas.Height



Xmax = picCanvas.ScaleWidth - BallR

Ymax = picCanvas.ScaleHeight - BallR



Randomize

CurX = Int((Xmax - BallR + 1) * Rnd + BallR)

CurY = Int((Ymax - BallR + 1) * Rnd + BallR)

OldX = CurX

OldY = CurY

VelX = Int((10 - 5 + 1) * Rnd + 5)

VelY = Int((10 - 5 + 1) * Rnd + 5)



DrawBall

End Sub





Private Sub Timer1_Timer()

CurX = CurX + VelX

If (CurX > Xmax) Then

CurX = Xmax

VelX = -VelX

' Beep

ElseIf (CurX < BallR) Then

CurX = BallR

VelX = -VelX

' Beep

End If



CurY = CurY + VelY

If (CurY > Ymax) Then

CurY = Ymax

VelY = -VelY

' Beep

ElseIf (CurY < BallR) Then

CurY = BallR

VelY = -VelY

' Beep

End If



DrawBall

End Sub

--------------------------------------------------
Kapat Butonunu Pasif Yapma
Form alanına yazılacak



Option Explicit

Private Const MF_BYPOSITION = &H400

Private Const MF_REMOVE = &H1000

Private Declare Function DrawMenuBar Lib "user32" _

(ByVal hwnd As Long) As Long

Private Declare Function GetMenuItemCount Lib "user32" _

(ByVal hMenu As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" _

(ByVal hwnd As Long, _

ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "user32" _

(ByVal hMenu As Long, _

ByVal nPosition As Long, _

ByVal wFlags As Long) As Long

Private Sub Form_Load()

Dim hMenu As Long

Dim menuItemCount As Long

hMenu = GetSystemMenu(Me.hwnd, 0)

If hMenu Then

menuItemCount = GetMenuItemCount(hMenu)

Call RemoveMenu(hMenu, menuItemCount - 1, MF_REMOVE Or MF_BYPOSITION)

Call RemoveMenu(hMenu, menuItemCount - 2, MF_REMOVE Or MF_BYPOSITION)

Call DrawMenuBar(Me.hwnd)

End If

End Sub





---------------------------------------------------------- ADODB Bağlantısına Örnek
Dim dbMyDB As Database

Dim rsMyRS As Recordset



Private Sub Command1_Click()



rsMyRS.AddNew

rsMyRS!Ad = Text1.Text

lstRecords.AddItem rsMyRS!Ad

lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!Kimlik

rsMyRS!Telefon = Text2.Text

rsMyRS.Update

End Sub



Private Sub Form_Load()



Set dbMyDB = OpenDatabase("dbdb.mdb")

Set rsMyRS = dbMyDB.OpenRecordset("Tablo1", dbOpenDynaset)



If Not rsMyRS.EOF Then rsMyRS.MoveFirst

Do While Not rsMyRS.EOF

lstRecords.AddItem rsMyRS!Ad

lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!Kimlik

rsMyRS.MoveNext

Loop



End Sub



Private Sub lstRecords_Click()

rsMyRS.FindFirst "Kimlik=" & Str(lstRecords.ItemData(lstRecords.ListIndex))

Telefon.Text = rsMyRS!Telefon

End Sub



Private Sub cmdUpdate_Click()

rsMyRS.Edit

rsMyRS!Phone = Telefon.Text

rsMyRS.Update

End Sub



Private Sub cmdDelete_Click()

rsMyRS.Delete

lstRecords.RemoveItem lstRecords.ListIndex

End Sub



Private Sub cmdNew_Click()

Label3.Visible = True

Label4.Visible = True

Text1.Visible = True

Text2.Visible = True

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub


Yazılım&Programlama  
   
Reklam  
   
 
   
 
   
 
   
 
   
Bugün 4 ziyaretçi (6 klik) kişi burdaydı!
=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=