|
Text
kutusunda sayý yazarken virgüllü
yazdýrma
1.Bunun
için yeni bir
project(new
project)
açýn
2.Bir
Text
kutusu ekleyin
3.Daha
sonra içine aþaðýdaki
kodlarý girin.
Sub
Text1_change()
Text1.Text = format(text1.text,"###,###,###")
Sendkeys "{end}"
End Sub
Baþa
dön
E-mail
gönderme
1.Bunun
için yeni bir project(new
project)
açýn
2.Bir
Label
kutusu
ekleyin
3.Label
kutusuna 1 kere týklayýn.
4.F4
tuþuna basýn ve caption
özelliðine istediðiniz e-mail adresini
yazýn
5.Label
ýn Mouse
pointer
özelliðini 10(Up arrow) olarak
deðiþtirin.
6.Daha
sonra label'ýn içine
aþaðýdaki kodlarý girin.
Sub
Label1_click()
X = Shell("start mailto:"+trim$(label1.caption))
End Sub
Baþa
dön
Formu
sürekli üstte
tutma
1.Bunun
için yeni bir project(new
project)
açýn
2.Bir
Komut Butonu(Command
Button) ekleyin.
3.Daha
sonra aþaðýdaki kodlarý ekleyin
Form1 in general declarations kýsmýna
(aþaðýdaki satýrlardaki komutlar tek
bir satýrda olmalý)
Declare
Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal
hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As
Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal
wFlags As Integer)
Sub Form1_Load()
SetWindowPos form1.hWnd, -1, 0, 0, 0, 0, &H50
'
formun üstte kalmasýný saðlar
End
Sub
Sub Command1_Click()
SetWindowPos form1.hWnd, -2, 0, 0, 0, 0, &H50
'
üstte kalma özelliðini
kapatýr.
End Sub
Baþa
dön
.wav
Çaldýrma (dll yardýmý ile)
1.Bunun
için yeni bir project(new
project)
açýn
2.Daha
sonra aþaðýdaki kodlarý ekleyin
Form1 in general declarations kýsmýna
Declare
Function mciExecute Lib "MMSystem" (ByVal FileName as
String) As Integer
Sub
Form1_Click ()
iResult = mciExecute("Play c:\deneme.wav")
End Sub
'not:deneme.wav
yerine kendi dosyanýzýn yolunu ve
adýný
yazmalýsýnýz
|
