Dipkarpazın İlk Ve Tek Forum Sitesi
5 Saniyede Üye Olun, Kıbrısın En Büyük Yerel Sayfasında Olmanın Ayrıcalıklarını Yaşamaya...






GÜNEŞ DİPKARPAZ'DAN DOĞAR VE TÜM KIBRISI AYDINLATIR.
 
AnasayfaTakvimSSSAramaKayıt OlGiriş yap
Yeniden aktif olarak yayındayız, bizi izlemeye devam edin...
3500'ü aşkın Dipkarpaz hayranı burada... TIKLA---FACEDİPKARPAZ---TIKLA
Her türlü sorununuz için BURAYA TIKLAYARAK admine mesaj yollayınız...
Reklam alımlarımız başlamıştır. BURAYA TIKLAYARAK reklam verebilirsiniz...
Giriş yap
Kullanıcı Adı:
Şifre:
Beni hatırla: 
:: Şifremi unuttum
Saat
En son konular
» Alt Düzey
Paz Ekim 20, 2013 9:38 am tarafından Admin

» KANU SINAVINDA ÇIBİLECEK 9 AYRI GENEL KÜLTÜR TESTİ.
Paz Haz. 02, 2013 6:58 am tarafından Admin

» LOREENA MCKENNITT TÜM ALBÜMLERİ
C.tesi Mayıs 18, 2013 12:14 pm tarafından gurhand77

» Kamu Görevlileri Yasası indir...
Perş. Kas. 08, 2012 9:52 pm tarafından handan

» Sınırsız mp3 indirme sayfası
Paz Ekim 07, 2012 10:57 am tarafından Admin

» StadYum24WebTv
C.tesi Ekim 06, 2012 8:42 am tarafından Admin

» Mega Hafıza seti + Bio-Ritmik Largo ve Konsantrasyon Seti
Ptsi Haz. 18, 2012 5:10 pm tarafından bahabey_19

» Web Tv Plus 4.0 ( Lig Tv Ücretsiz İzleyin )
Paz Ekim 30, 2011 12:44 pm tarafından serhat58ist

» Dogan güneşin evi
C.tesi Tem. 16, 2011 10:28 pm tarafından konyalı

» Lady Gaga Live Video Collection | 2009-2011 | 1080i | HDTV
Paz Nis. 03, 2011 5:28 pm tarafından dipkarpazli

Görüntüler
DİPKARPAZ
Son Dakika
En iyi yollayıcılar
Admin
 
konyalı
 
dipkarpazli
 
gurhand77
 
brokroris
 
Önal_Dijital
 
niveni
 
hamza
 
smf-vb
 
lazudiye
 

Paylaş | 
 

 Visual Basicte Yapmış Oldugum Bir Program

Aşağa gitmek 
YazarMesaj
smf-vb
Er
Er
avatar

Mesaj Sayısı : 4
Yaş : 29
Points : 8
Reputation : 0
Kayıt tarihi : 20/06/09

MesajKonu: Visual Basicte Yapmış Oldugum Bir Program   Perş. Haz. 25, 2009 12:52 am

Forma 1 adet command button 1 adet textbox ekleyin. textboxa başlat yazısının yerinde ne yazmasını istiyorsanız onu yazın. Ardından command buttona tıklayın. Pc kapatılıp açıldığında yazı eski haline döner. Yani tekrar başlat yazar. kod kısmına da aşağıdaki kodu olduğu gibi yapıştırın.


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


BU kodların hepsini forma yapıştırın bitti.

İsterseniz Yapar Size Verebilirim Smile Site Adına Tabiki

DipKarpaz Coder Team Smile Olarak Smile
Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör
Admin
Admin
avatar

Mesaj Sayısı : 480
Yaş : 99
Points : 317
Reputation : 2
Kayıt tarihi : 08/11/07

MesajKonu: Geri: Visual Basicte Yapmış Oldugum Bir Program   Paz Tem. 12, 2009 1:23 pm

Eline sağlık.

_________________
dipkarpaz.yetkin-forum.com Hepimiz

Sayfa başına dön Aşağa gitmek
Kullanıcı profilini gör http://dipkarpaz.yetkin-forum.com
 
Visual Basicte Yapmış Oldugum Bir Program
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Dipkarpazın İlk Ve Tek Forum Sitesi :: GRAFİK TASARIM YAZILIM :: asp, php, delphi, c++ vb...-
Buraya geçin: