...::::Tek Link Full Download::::...



İnternet Sayfamıza Hoşgeldiniz...

Sitemize üye olarak bir çok linki elde edebilirsin!!!

Anasayfa bölümünde bir çok konu bulunmaktadır....




...::::Tek Link Full Download::::...

İStediğiniz Türden Dosya....
 
AnasayfaSite AnalizTakvimSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap
Sitemize Moderatör Aranmaktadır...
Başvuru yapacaklar admine ulaşabilirler...


Paylaş | 
 

 Başlatı Değiştir(kodlar)

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
Admin
Admin
avatar

Mesaj Sayısı : 63
Tecrübe Puanı : 173
Kayıt tarihi : 12/07/10

MesajKonu: Başlatı Değiştir(kodlar)   Salı Tem. 13, 2010 2:51 pm

Formunuza 1 textbox, 1 command buton ekleyin.
Kod:
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

Public Sub SetStartCaption(str As String)
  Dim StartBar As Long
  Dim StartBarText As Long
  Dim sCaption As String
 
  StartBar = FindWindow("Shell_TrayWnd", vbNullString)
  StartBarText = FindWindowEx(StartBar, 0&, "button", vbNullString)
  sCaption = Left(str, 6)
  SendMessageSTRING StartBarText, WM_SETTEXT, 256, sCaption
  Exit Sub
  End Sub
Private Sub Command1_Click()
SetStartCaption Text1.Text
End Sub
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://forumtime.fullforums.org
indirirsen

avatar

Mesaj Sayısı : 6
Tecrübe Puanı : 12
Kayıt tarihi : 14/07/10

MesajKonu: Geri: Başlatı Değiştir(kodlar)   Çarş. Tem. 14, 2010 5:07 pm

Bilgisayarımı istediğim gibi yapabiliyorum...

Emegine Sağlık.... cheers cheers lol! lol!


Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
 
Başlatı Değiştir(kodlar)
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
...::::Tek Link Full Download::::... :: PROGRAMLAMA/WEB TASARIM :: Visual Basic-
Buraya geçin: