Taksitli Satış Programı

Yazar jawscod2

‘Belki o kadar iyi değil ama yinede taksitlendirme yapabiliyor.

Forma bir tane list box ekledim kopyalayarak 10 tane listbox oluşturdum 10 tane butonumuz,yine kopyalayarak 11 tane checkbox (buna ayları yazıyosunuz),13 tane label,11 tane text box yine kopyaayarak malzemeler bu kadar ;)

aşağıdaki kod form bölümüne yazılacak
——————————————————————————–

Private Sub Command1_Click(Index As Integer)
Dim i
For i = 0 To 9
List1(i).AddItem Text1(i)
Next
Text1(0).SetFocus
Label12 = List1(0).ListCount

End Sub

Private Sub Command10_Click(Index As Integer)
Dim i
For i = 0 To 9
List1(i).List(List1(i).ListIndex) = CVar(Text1(i).Text)
Next

End Sub

Private Sub Command2_Click()
Dim cevap, i, j, bulundu
cevap = InputBox(”Bulmak istediğiniz kaydı giriniz”, “Kayıt arama”, List1(0).List(0), 0, 0)
For i = 0 To List1(0).ListCount - 1
If Trim(UCase(cevap)) = Trim(UCase(List1(0).List(i))) Then
bulundu = i
MsgBox “Aranan kayıt bulundu”
For j = 0 To 9
List1(j).ListIndex = bulundu
List1(j).TopIndex = bulundu
Text1(i).Text = List1(i).Text
Next
Exit For
End If
Next
End Sub

Private Sub Command3_Click()
Dim cevap, secind, i
Dim Index As Integer
secind = List1(Index).ListIndex
If secind Val(Text1(4)) Then Exit Sub
For i = basay - 1 To Val(Text1(4))
Check1(i).Value = Checked
Next
Label17 = Format(Val(Text1(3)) + Val(Format(Text1(6), “#”)), “###,###”) & “YTL”

End Sub

Şimdi formumuza bir modül ekliyoruz ve aşağıdaki kodları yazıyoruz
——————————————————————————–

Option Explicit
Type taksit
tak(9) As String * 20
End Type
Global taksatis As taksit
Global kayıtsay As Integer

Public Const GWL_EXSTYLE = -20
Public Const LWA_COLORKEY = &H1
Public Const LWA_ALPHA = &H2&
Public Const WS_EX_LAYERED = &H80000
Public Const WS_EX_TRANSPARENT = &H20&

Public Declare Function GetWindowLong Lib “user32″ Alias “GetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib “user32″ Alias “SetWindowLongA” (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function SetLayeredWindowAttributes Lib “user32″ (ByVal hwnd As Long, ByVal crKey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Bu yazı toplamda 43, bugün ise 0 kez görüntülenmiş