29 March 2006, 11:40 | Mesaj No:1 |
Guest
Durumu:
Papatyam No :
Arkadaşları:
Cinsiyet:
|
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: |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Visual Basic 6.0 Full Download | agasarlinuris | vısual basic | 2 | 27 February 2009 19:46 |
Visual Basic Programlama Dili | CoNQueRoR_61 | vısual basic | 1 | 25 February 2009 15:22 |
ÖRNEK KAYNANA | umut | Ana-Baba hakkı | 0 | 03 June 2008 11:10 |
BÖYLE ÖRNEK OLUYORDU İNSANLIĞA! | umut | Dini Hikayeler | 0 | 25 April 2008 10:35 |
Vb.net'te verileri combobox'a dolduran bir örnek | tamerr89 | visual basic.net | 0 | 29 March 2008 18:21 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |