<<< Formun Kapatilmasini Önlemek >>>
formunuzun borderstyle özelligini 0 yapin
Private Sub Form_Load()
App.TaskVisible = False
End Sub
yazin artik çalisan programiniz hem görev yöneticisinde görünmeyecek,hem de baslikta kalkacak.
<<< Formun Taşınmasında En Kolay Yol >>>
Option Explicit
Private setX As Integer, setY As Integer 'Bunu Formun En Üst Kısmına Yazın...
'Buraya " lblTitleBar" Adında Bir Picturebox Yaratıyoruz Ve Formumuz Kolayca Heryare Tasınıyor....
Private Sub lblTitleBar_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
setX = x
setY = y
End Sub
Private Sub lblTitleBar_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Button = 1 Then
Me.Left = Me.Left + (x - setX)
Me.Top = Me.Top + (y - setY)
End If
End Sub
<<< SFlex Grid kontrolünde kutulara sığmayan yazılar... >>>
MSFlex Grid'e sığmayan yazıları tıkladığınızda bir tooltip şeklinde tam olarak görüntüleyebilirsiniz. Bunu için flexgrid'in selectionchange kısmında tooltipi textmatrix(rowsel,colsel) olarak ayarlayın. Gerçekten güzel gözüküyor ve yeniden boyutlandırmayla uğraşmamış oluyorsunuz.
<<< Visual basic te süzme işleminize yardımcı olacak bir komut >>>
örneğin rehber adlı bir tablonuz var bu tabloda müşterino larını göre süzme yapmanız gerekiyo ve bu işlemi text kutusuyla yapmak istiyosanız aşağıya bakın
dim t
t="'" & text1.text & "*'"
Data2.RecordSource = "select * from rehber where MusteriNo like " & t & ""
Data2.Refresh
<<< Bir kodun formdaki tüm textbox'larda kullanımı >>>
Örneğin formdaki TextBox'lara sadece sayısal değerler girdirmek istiyorsunuz.
Bunun için tüm TextBox'ların event'ına bu kodu yazmanız gerekir. Bundan kurtulmak için ClassModule devreye girerer.
ClassModule sayfasına;
Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
If txt <> Empty Then
If IsNumeric(txt) = False Then
MsgBox ("Numeric Sayılar Kullanmalısınız!"): Exit Sub
End If
End If
End Sub
Bu şekilde TextBox'ın Change event'ına kodumuzu yazdık.
Module sayfasına;
Global txtler() As New Class1
Global kontrol As Control
Module sayfasına değişkenlerimizi tanımladık.
Private Sub Form_Initialize()
i = 1
For Each kontrol In Me.Controls
If TypeName(kontrol ) = "TextBox" Then
ReDim Preserve txtler(i)
Set txtler(i).txt = kontrol
i = i + 1
End If
Next
End Sub
formunuzun borderstyle özelligini 0 yapin
Private Sub Form_Load()
App.TaskVisible = False
End Sub
yazin artik çalisan programiniz hem görev yöneticisinde görünmeyecek,hem de baslikta kalkacak.
<<< Formun Taşınmasında En Kolay Yol >>>
Option Explicit
Private setX As Integer, setY As Integer 'Bunu Formun En Üst Kısmına Yazın...
'Buraya " lblTitleBar" Adında Bir Picturebox Yaratıyoruz Ve Formumuz Kolayca Heryare Tasınıyor....
Private Sub lblTitleBar_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
setX = x
setY = y
End Sub
Private Sub lblTitleBar_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Button = 1 Then
Me.Left = Me.Left + (x - setX)
Me.Top = Me.Top + (y - setY)
End If
End Sub
<<< SFlex Grid kontrolünde kutulara sığmayan yazılar... >>>
MSFlex Grid'e sığmayan yazıları tıkladığınızda bir tooltip şeklinde tam olarak görüntüleyebilirsiniz. Bunu için flexgrid'in selectionchange kısmında tooltipi textmatrix(rowsel,colsel) olarak ayarlayın. Gerçekten güzel gözüküyor ve yeniden boyutlandırmayla uğraşmamış oluyorsunuz.
<<< Visual basic te süzme işleminize yardımcı olacak bir komut >>>
örneğin rehber adlı bir tablonuz var bu tabloda müşterino larını göre süzme yapmanız gerekiyo ve bu işlemi text kutusuyla yapmak istiyosanız aşağıya bakın
dim t
t="'" & text1.text & "*'"
Data2.RecordSource = "select * from rehber where MusteriNo like " & t & ""
Data2.Refresh
<<< Bir kodun formdaki tüm textbox'larda kullanımı >>>
Örneğin formdaki TextBox'lara sadece sayısal değerler girdirmek istiyorsunuz.
Bunun için tüm TextBox'ların event'ına bu kodu yazmanız gerekir. Bundan kurtulmak için ClassModule devreye girerer.
ClassModule sayfasına;
Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
If txt <> Empty Then
If IsNumeric(txt) = False Then
MsgBox ("Numeric Sayılar Kullanmalısınız!"): Exit Sub
End If
End If
End Sub
Bu şekilde TextBox'ın Change event'ına kodumuzu yazdık.
Module sayfasına;
Global txtler() As New Class1
Global kontrol As Control
Module sayfasına değişkenlerimizi tanımladık.
Private Sub Form_Initialize()
i = 1
For Each kontrol In Me.Controls
If TypeName(kontrol ) = "TextBox" Then
ReDim Preserve txtler(i)
Set txtler(i).txt = kontrol
i = i + 1
End If
Next
End Sub
