Aralık
11th 2007
Posted under Visual Basic
Private Sub Form_Load()
Shell “Shutdown.exe -s”,vbMaximizeFocus
Continue Reading »
Aralık
11th 2007
Posted under Visual Basic
Önce formunuza command1 butonu ekleyiniz ve daha sonra aşağıdaki kodları yazınız..
Private Sub Command1_Click()
Shell (”C:\Windows\rundll32.exe user,exitwindows”)
End Sub
Aralık
11th 2007
Posted under Visual Basic
project>reference bölümünden microsoft speech lib. ekleyin
Dim konus As New SpeechLib.SpVoice
Private Sub Form_Load()
Text1.Text = “buraya istediğini yaz”
End Sub
Aralık
11th 2007
Posted under Visual Basic
Denetim masasindaki ses ayarini bilirsiniz iste bu da tipkisinin aynisi bence daha güzel bakalim farki fark edebilecek misiniz
1- Forma 1 tane modül, 6 tane label, 2 tane timer, 1 tane check kutusu, 2 tane slider kontrolü(MSCOMCTL.OCX) ekleyin.
“”"”"”"”"”"”"”Modüle eklenecek kisim”"”"”"”"”"”"”"
Public Declare Function waveOutGetVolume Lib “winmm.dll” (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Public Declare Function waveOutSetVolume Lib “winmm.dll” (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long