Visual Basic İle İlgili Bikaç Sorum Var

Tahribat.com Forumları
line

Visual Basic - Basic - PicBasic ve Türevleri
line

Visual Basic İle İlgili Bikaç Sorum Var

02/Tem/10 19:29 Kısayol Şikayet Özel Mesaj

wasd

Kayıt Tarihi: 14/Haziran/2006

1) Uygulama tüm ekranı kaplayacak ve ctrl+alt+del ile aşılamayacak şekilde olsun istiyorum. (tam ekran yaptım ama görev yöneticisi aşıyo)

2) Uygulama için ekran klavyesi kodladım. Herşey iyi güzel ama space tuşunu yapamadım

Private Sub Command1_Click()

İf Command1.Value = True Then

Text1.Text = Text1.Text + ""

End İf

End Sub

şeklinde yazdım kodu ama tırnakların arasına ne yazarsam boşluk bırakır bulamadım

:)

Alıntı yap
02/Tem/10 19:43 Kısayol Şikayet Özel Mesaj

DE5TROY3R

Kayıt Tarihi: 04/Nisan/2007

1) Timer ile pencereni devamlı max yaptırt ( Emin değilim:D) olmazsa pencereyi yukarı alma apisi var

2) SendKeys Chr(32)

Text1.Text = Text1.Text + " "

veya

Text1.Text = Text1.Text + & chr(32)

Alıntı yap
02/Tem/10 19:56 Kısayol Şikayet Özel Mesaj

wasd

Kayıt Tarihi: 14/Haziran/2006

DE5TROY3R bunu yazdı:
-----------------------------

1) Timer ile pencereni devamlı max yaptırt ( Emin değilim:D) olmazsa pencereyi yukarı alma apisi var

2) SendKeys Chr(32)

Text1.Text = Text1.Text + " "

veya

Text1.Text = Text1.Text + & chr(32)

-----------------------------

Private Sub Command1_Click()
    If Command1.Value = True Then
    Text1.Text = Text1.Text + Chr(32)
    End If
End Sub

Böyle oldu :D pencere fln yok,windowstateini maximize yaptım tüm ekranı kapatıyo ama görev yöneticisini komple iptal etmeden nası devre dışı bırakıcam?

http://www.zshare.net/download/77896016c98d992f/

Windowsun oturum açma ekranı gibi masaüstünü kapatıcak bişey yapmaya uraşıyorum.henüz eksiği çok :P şifre değiştirme formunu kodlamadım daha bide büyük küçük karakter için listboxı düzenlemem lazım falan filan..şu anki şifresi 2tane boşluk

:)

Alıntı yap
02/Tem/10 20:07 Kısayol Şikayet Özel Mesaj

DE5TROY3R

Kayıt Tarihi: 04/Nisan/2007

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long)

Private Sub Form_Load()
Me.WindowState = 2
Timer1.Interval = "10"
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE _
Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Dikkat et içinde kalma formun :D yukarı çeker formu

Alıntı yap
02/Tem/10 20:16 Kısayol Şikayet Özel Mesaj

wasd

Kayıt Tarihi: 14/Haziran/2006

Çok kıyak oldu valla eyvallah :D

listboxı kodlayıp lower case olayını halletmek

Klavyeyi şifre değiştirme formuna bağlamak

doğru şifre girilmeden bilgisayar kapatılıp açılsada uygulamanın tekrar başlamasını sağlamak

....

bunlarıda yaptımmı tamam :D tabi bide şifre,şu anda 2boşluk,ama onu deiştirilebilir bi hale getirmeliyim :P çok gereksiz bi uygulama ama olsun :D

EDİT : Yanlış şifre uyarısı geldimi kitlenip kalıyo dediğin gibi xD uygulamaya dokunamıyosun,e uyarıda arkada kalıyo tamam diyip kapatamıyosun :D çözüm bulucam :P

:)

Alıntı yap

Toplam Hit: 2334 Toplam Mesaj: 5

Cevapla