29 March 2006, 11:40
|
Mesaj No:1
|
Guest
Durumu:
Papatyam No :
Arkadaşları:
Cinsiyet:
Mesaj:
n/a Konular:
Beğenildi:
Beğendi:
Takdirleri:
Takdir Et:
|
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:
|
|
|