Konu Başlıkları: Visual Basic Örnek Kodlar (1)
Tekil Mesaj gösterimi
Alt 29 March 2006, 10:40   Mesaj No:1

Mekansiz

Guest
Avatar Otomotik
Durumu:
Papatyam No :
Arkadaşları:
Cinsiyet:
Mesaj: n/a
Konular:
Beğenildi:
Beğendi:
Takdirleri:
Takdir Et:
Standart Visual Basic Örnek Kodlar (1)

Visual Basic Örnek Kodlar (1)

Aşağıda verilen kodlar Visual Basic Kodbanktan Alınmıştır...
---------------------
Listbox'a bir text dosyasi içerigi nasıl yüklenir?

[code:1:bf5b71a081]
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
[/code:1:bf5b71a081]

Clipboard dan text nasıl kopyalanır

[code:1:bf5b71a081]
'Textbox'ta texti isaretle ve isaretlenen yeri clipboard'dan kopyaladiginla degistir:

txtBox.SelText = Clipboard.GetText

'Yada tüm text'i clipboarddan aldiginla degistir.

txtBox.Text = Clipboard.GetText

Clipboard'a text nasıl kopyalanir?
'Önce clipboard'u temizle
Clipboard.Clear

'Sonra kopyalanacak alani seç ve clipboard'a kopyala
Clipboard.SetText txtBox.Text, vbCFText
[/code:1:bf5b71a081]

Web Adresleri Nasıl Açılır?

[code:1:bf5b71a081]
'Asagidaki kodu bir kontrolun click event'ine yaz
Dim iRet As Long
Dim Cevap As Integer

Cevap = MsgBox("www.hakanersoz.com adresini açmak 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
[/code:1:bf5b71a081]

Text Nasıl şifrelenir?

[code:1:bf5b71a081]
'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&quot
Print Decrypt("Uijt!jt!kvtu!bo!fybnqmf&quot
[/code:1:bf5b71a081]

Formun Captionuna Nasıl Kayan Yazı Yazılır?

[code:1:bf5b71a081]
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
[/code:1:bf5b71a081]

Ekran Çözünürlüğü Nasıl Bulunur?

[code:1:bf5b71a081]
Genelde ekran çözünürlügüne göre programlarinizdaki nesneleri resize etmek oldukça kullanisli bir yoldur.

Ekran çözünürlügünü söyle bulursunuz:
Asagidaki kodu form_load'a yazarsanız her açılışta ekran çözünürlüğünü kontrol eder.

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

Ekran_Cozunurlugu = Genislik & "x" & Yukseklik

Sonuç asagidaki gibi olur:

800x600
[/code:1:bf5b71a081]

Kontroller nasıl taşınabilir?

[code:1:bf5b71a081]
Burada bir picturebox form üzerinde 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
[/code:1:bf5b71a081]

Kendi Popup Menümüz Textbox İçinde Nasıl Görüntülenir?

[code:1:bf5b71a081]
If Button = 2 Then
With Text1
.Enabled = False
PopupMenu {KendiMenunuz}
.Enabled = True
.SetFocus
End With
End If
End Sub
[/code:1:bf5b71a081]

Form Üzerindeki Picturebox nasıl Ortalanır?

[code:1:bf5b71a081]
Picture1.Left = (Form1.Width - Picture1.Width) / 2
[/code:1:bf5b71a081]

Not : sadece picturebox olarak düşünmeyin diğer nesneleride bu yöntemle form üzerinde ortalayabilirsiniz...

Program dışında keypress nasıl saptanır?

[code:1:bf5b71a081]
GetAsyncKeyState API'si kullanilir. Asagidaki kodu module içine yazin

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


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

Public Const VK_TAB = &H9

'Timer1_Timer() içine asagidaki kodu ekleyin

If GetAsyncKeyState(VK_TAB) Then
Beep ' TAB'a basilirsa beep
End If
[/code:1:bf5b71a081]

Windows belgeler içeriği nasıl silinir?

[code:1:bf5b71a081]
Bir module asagidaki API deklerasyonunu ekle:

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

Herhangi bir click içine de asagidaki kodu ekle:

SHAddToRecentDocs(2,vbNullString)
[/code:1:bf5b71a081]

Bu kodlar şimdilik bu kadar... Herkeze iyi çalışmalar. Soru ve sorunlarınızı cevaplamak için bekliyorum. İyi günler...
Yellow_Co:
Alıntı ile Cevapla