Teknovera Forum  

Geri git   Teknovera Forum > (¯`·._.·[Bilgisayar & Teknoloji]·._.·´¯) > Programlar ve Anlatımlar

Cevapla
 
Seçenekler Stil
  #1  
Alt 03-29-2006, 10:40 40
Mekansiz
Guest
 
Mesajlar: n/a
Standart 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
Cevapla

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı

Gitmek istediğiniz klasörü seçiniz

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Visual Basic 6.0 Full Download agasarlinuris vısual basic 2 02-27-2009 18:46 46
Visual Basic Programlama Dili CoNQueRoR_61 vısual basic 1 02-25-2009 14:22 22
ÖRNEK KAYNANA umut Ana-Baba hakkı 0 06-03-2008 10:10 10
BÖYLE ÖRNEK OLUYORDU İNSANLIĞA! umut Dini Hikayeler 0 04-25-2008 09:35 35
Vb.net'te verileri combobox'a dolduran bir örnek tamerr89 visual basic.net 0 03-29-2008 17:21 21


Şu Anki Saat: 20:50 50


Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
Bu site alemdarhost.com sunucularinda barindirilmaktadir.