📄 billing.frm
字号:
Width = 1215
End
Begin VB.Label LabelTotal
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "Total"
ForeColor = &H00404040&
Height = 255
Left = 3360
TabIndex = 24
Top = 2160
Visible = 0 'False
Width = 1215
End
Begin VB.Label Label14
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "Jam :"
ForeColor = &H00404040&
Height = 255
Left = 240
TabIndex = 23
Top = 1560
Width = 855
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "http://www.blackpearl87.com"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 2040
MouseIcon = "billing.frx":2E244
MousePointer = 99 'Custom
TabIndex = 22
Top = 3360
Width = 2655
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Visit: "
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 1560
TabIndex = 21
Top = 3360
Width = 495
End
Begin VB.Shape pesmov
BackColor = &H00FFC0C0&
BackStyle = 1 'Opaque
BorderColor = &H00C0FFFF&
Height = 495
Left = 2115
Shape = 4 'Rounded Rectangle
Top = 2595
Visible = 0 'False
Width = 1215
End
Begin VB.Shape selmov
BackColor = &H00FFC0C0&
BackStyle = 1 'Opaque
BorderColor = &H00C0FFFF&
Height = 495
Left = 3435
Shape = 4 'Rounded Rectangle
Top = 2595
Visible = 0 'False
Width = 1215
End
Begin VB.Label wel
Alignment = 2 'Center
BackColor = &H8000000D&
BackStyle = 0 'Transparent
Caption = "Selamat Datang"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = -1 'True
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 255
Left = 120
TabIndex = 18
Top = 960
Width = 4695
End
Begin VB.Label Label10
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "Total :"
ForeColor = &H00404040&
Height = 255
Left = 2520
TabIndex = 17
Top = 2160
Width = 615
End
Begin VB.Label Label8
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "Biaya :"
ForeColor = &H00404040&
Height = 255
Left = 2520
TabIndex = 16
Top = 1560
Width = 855
End
Begin VB.Label Label6
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "Durasi :"
ForeColor = &H00404040&
Height = 255
Left = 240
TabIndex = 15
Top = 2160
Width = 855
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Height = 375
Left = 3840
TabIndex = 14
Top = 5280
Width = 255
End
Begin VB.Label Label3
BackColor = &H000000FF&
BackStyle = 0 'Transparent
Height = 255
Left = 4200
TabIndex = 13
Top = 0
Width = 615
End
Begin VB.Label Label2
BackColor = &H00FF0000&
BackStyle = 0 'Transparent
Height = 255
Left = 3720
TabIndex = 12
Top = 0
Width = 375
End
Begin VB.Label Label1
BackColor = &H0000C0C0&
BackStyle = 0 'Transparent
Height = 255
Left = 3360
TabIndex = 11
Top = 0
Width = 375
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = " 22 Juli 1987"
ForeColor = &H00000000&
Height = 255
Left = 1560
TabIndex = 10
Top = 555
Width = 2055
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "12:00"
ForeColor = &H00404040&
Height = 255
Left = 1080
TabIndex = 9
Top = 1560
Width = 1095
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
BorderWidth = 3
Visible = 0 'False
X1 = 0
X2 = 4840
Y1 = 480.216
Y2 = 480.216
End
Begin VB.Label biayar
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Left = 1680
TabIndex = 8
Top = 120
Visible = 0 'False
Width = 1575
End
Begin VB.Label waktur
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 255
Left = 120
TabIndex = 7
Top = 120
Visible = 0 'False
Width = 1455
End
Begin VB.Image Image1
Height = 375
Left = 120
Picture = "billing.frx":2E54E
Stretch = -1 'True
Top = 950
Width = 4630
End
Begin VB.Image Image3
Height = 2055
Left = 120
Picture = "billing.frx":37110
Stretch = -1 'True
Top = 1080
Width = 4635
End
Begin VB.Image Image2
Height = 510
Left = 120
Picture = "billing.frx":6566A
Stretch = -1 'True
Top = 3090
Width = 4635
End
Begin VB.Image normal
Height = 3705
Left = 0
Picture = "billing.frx":6D0BC
Top = 0
Width = 4875
End
Begin VB.Image max
Height = 3705
Left = 0
Picture = "billing.frx":70791
Top = 0
Visible = 0 'False
Width = 4875
End
Begin VB.Image min2
Height = 3705
Left = 0
Picture = "billing.frx":73E6E
Top = 0
Visible = 0 'False
Width = 4875
End
Begin VB.Image min1
Height = 3705
Left = 0
Picture = "billing.frx":77561
Top = 0
Visible = 0 'False
Width = 4875
End
Begin VB.Image close2
Height = 3705
Left = 0
Picture = "billing.frx":7AC3A
Top = 0
Visible = 0 'False
Width = 4875
End
Begin VB.Image close1
Height = 3705
Left = 0
Picture = "billing.frx":7E30E
Top = 0
Visible = 0 'False
Width = 4875
End
Begin VB.Image max2
Height = 3705
Left = 0
Picture = "billing.frx":819E4
Top = 0
Visible = 0 'False
Width = 4875
End
Begin VB.Label bld
BackStyle = 0 'Transparent
Caption = "BLacK PeaRL"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 255
Left = 2640
TabIndex = 0
Top = 7560
Width = 1335
End
End
Attribute VB_Name = "billing"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long
Private XX As Single
Private YY As Single
Private Declare Function TaskManager_Enable_Disable Lib "kunci.dll" (ByVal bEnableDisable As Boolean) As Integer
Private ScaleFactor As Long
Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim isPatch As Boolean
Private Sub BLacKCandyButton1_Click()
txtmen.Text = menke.Text
frmmen.Visible = False
End Sub
Private Sub BLacKCandyButton2_Click()
frmmen.Visible = False
End Sub
Private Sub BLacKCandyButton3_Click()
frmmen.Visible = True
End Sub
Private Sub cmdcheck_Click()
FrmMain.haphartm.Enabled = True
FrmMain.haphar.Text = 2
cmdcheck.Enabled = False
LabelDiscount.Caption = "Rp." & FrmMain.LabelDiscount.Caption & ""
End Sub
Private Sub CmdPesan_Click()
FrmPesan.Visible = True
End Sub
Private Sub CmdPesan_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
pesmov.Visible = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -