📄 frmmainvis.frm
字号:
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 41
Top = 600
Width = 9255
End
Begin VB.Label Txtnama_warnet
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "BLaCk PeaRL Internet Cafe"
BeginProperty Font
Name = "Bookman Old Style"
Size = 15.75
Charset = 0
Weight = 600
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 120
TabIndex = 40
Top = 240
Width = 9255
End
Begin VB.Image Image3
Height = 1395
Left = 0
Picture = "FrmMainvis.frx":B532
Stretch = -1 'True
Top = 120
Width = 9240
End
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 1575
Left = 120
ScaleHeight = 1575
ScaleWidth = 5415
TabIndex = 38
Top = 0
Width = 5415
Begin VB.Image Image1
Height = 1395
Left = 0
Picture = "FrmMainvis.frx":1565F
Stretch = -1 'True
Top = 120
Width = 5400
End
End
Begin VB.Frame XPFrame7
BackColor = &H80000009&
BorderStyle = 0 'None
Caption = "Status Login"
Height = 1815
Left = 240
TabIndex = 31
Top = 5640
Visible = 0 'False
Width = 4335
Begin VB.TextBox usnm
Enabled = 0 'False
Height = 285
Left = 1440
TabIndex = 24
Top = 480
Width = 1575
End
Begin VB.TextBox lgas
Enabled = 0 'False
Height = 285
Left = 1440
TabIndex = 26
Top = 1200
Width = 1575
End
Begin VB.TextBox nm
Enabled = 0 'False
Height = 285
Left = 1440
TabIndex = 25
Top = 840
Width = 1575
End
Begin VB.CommandButton XPButton4
Caption = "Tutup"
Height = 855
Left = 3120
TabIndex = 27
Top = 600
Width = 855
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "User Name"
ForeColor = &H00B54524&
Height = 255
Left = 240
TabIndex = 37
Top = 480
Width = 975
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Login As"
ForeColor = &H00B54524&
Height = 255
Left = 240
TabIndex = 36
Top = 1200
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Nama"
ForeColor = &H00B54524&
Height = 255
Left = 240
TabIndex = 35
Top = 840
Width = 975
End
Begin VB.Shape Shape5
BackColor = &H00FFFAC6&
BackStyle = 1 'Opaque
BorderColor = &H00E0E0E0&
Height = 1575
Left = 120
Top = 120
Width = 4095
End
End
Begin VB.Frame XPFrame8
BackColor = &H00FFFFFF&
Height = 1215
Left = 7320
TabIndex = 30
Top = 6360
Visible = 0 'False
Width = 3135
Begin VB.Label tgl
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Jam Ada Disini"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 960
TabIndex = 32
Top = 240
Width = 2055
End
Begin VB.Image Image2
Height = 1050
Left = 0
Picture = "FrmMainvis.frx":2D0EC
Stretch = -1 'True
Top = 120
Width = 3090
End
End
Begin VB.Frame XPFrame16
BackColor = &H80000009&
Height = 1215
Left = 11040
TabIndex = 29
Top = 6360
Visible = 0 'False
Width = 3135
Begin VB.Label jam
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Jam Ada Disini"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 960
TabIndex = 33
Top = 240
Width = 2055
End
Begin VB.Image Image7
Height = 1050
Left = 0
Picture = "FrmMainvis.frx":2F546
Stretch = -1 'True
Top = 120
Width = 3090
End
End
Begin MSFlexGridLib.MSFlexGrid GridBilling
Height = 5700
Left = 240
TabIndex = 12
Top = 1800
Width = 14535
_ExtentX = 25638
_ExtentY = 10054
_Version = 393216
Rows = 60
Cols = 20
BackColor = 16777215
ForeColor = 11879716
BackColorFixed = 16298072
ForeColorFixed = 0
BackColorSel = 16711680
ForeColorSel = 0
BackColorBkg = 65280
GridColor = 0
ScrollBars = 2
AllowUserResizing= 1
Appearance = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial Baltic"
Size = 8.25
Charset = 186
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Shape Shape1
BackColor = &H00FFFAC6&
BackStyle = 1 'Opaque
BorderColor = &H00C0C0C0&
Height = 6495
Left = 120
Top = 1680
Width = 14775
End
End
Begin VB.Timer TimerPindah
Interval = 1000
Left = 1200
Top = 8880
End
Begin VB.Timer TimerStop
Interval = 1000
Left = 1680
Top = 8880
End
Begin VB.Timer TimerAktif
Interval = 1000
Left = 1200
Top = 8520
End
Begin VB.Timer TimerStart
Interval = 1000
Left = 2160
Top = 8880
End
Begin VB.Timer TimerUtama
Interval = 1000
Left = 1680
Top = 8520
End
Begin MSWinsockLib.Winsock Winsock
Index = 0
Left = 720
Top = 8520
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin HookMenu.ctxHookMenu ctxHookMenu1
Left = 2160
Top = 8520
_ExtentX = 900
_ExtentY = 900
BmpCount = 35
Bmp:1 = "FrmMainvis.frx":319A0
Key:1 = "#mnustop"
Bmp:2 = "FrmMainvis.frx":31DC8
Mask:2 = 11119017
Key:2 = "#mnuclient"
Bmp:3 = "FrmMainvis.frx":321F0
Key:3 = "#mnupindah"
Bmp:4 = "FrmMainvis.frx":32618
Key:4 = "#mnushutdown"
Bmp:5 = "FrmMainvis.frx":32A40
Key:5 = "#mnuunlock"
Bmp:6 = "FrmMainvis.frx":32E68
Key:6 = "#mnuactiv"
Bmp:7 = "FrmMainvis.frx":33290
Key:7 = "#mnupassadmin"
Bmp:8 = "FrmMainvis.frx":336B8
Mask:8 = 263172
Key:8 = "#mnurefr"
Bmp:9 = "FrmMainvis.frx":33AE0
Key:9 = "#mnuutil"
Bmp:10 = "FrmMainvis.frx":33F08
Key:10 = "#mnupesan"
Bmp:11 = "FrmMainvis.frx":34330
Mask:11 = 12236727
Key:11 = "#mnubackup"
Bmp:12 = "FrmMainvis.frx":34758
Mask:12 = 11119017
Key:12 = "#mnumember"
Bmp:13 = "FrmMainvis.frx":34B80
Key:13 = "#mnumati"
Bmp:14 = "FrmMainvis.frx":34FA8
Mask:14 = 16777215
Key:14 = "#mnusetting"
Bmp:15 = "FrmMainvis.frx":353D0
Key:15 = "#mnuconfig"
Bmp:16 = "FrmMainvis.frx":357F8
Key:16 = "#mnuuser"
Bmp:17 = "FrmMainvis.frx":35C20
Key:17 = "#mnures"
Bmp:18 = "FrmMainvis.frx":36048
Key:18 = "#mnulaporan"
Bmp:19 = "FrmMainvis.frx":36470
Key:19 = "#mnurekap"
Bmp:20 = "FrmMainvis.frx":36898
Key:20 = "#rnt"
Bmp:21 = "FrmMainvis.frx":36CC0
Key:21 = "#mnudeposit"
Bmp:22 = "FrmMainvis.frx":370E8
Key:22 = "#mnuhelp"
Bmp:23 = "FrmMainvis.frx":37E50
Key:23 = "#help"
Bmp:24 = "FrmMainvis.frx":38278
Key:24 = "#mnuabout"
Bmp:25 = "FrmMainvis.frx":386A0
Key:25 = "#asss"
Bmp:26 = "FrmMainvis.frx":38AC8
Mask:26 = 6575188
Key:26 = "#as"
Bmp:27 = "FrmMainvis.frx":38EF0
Key:27 = "#rad"
Bmp:28 = "FrmMainvis.frx":3AC58
Key:28 = "#klkpesan"
Bmp:29 = "FrmMainvis.frx":3B9C0
Key:29 = "#klref"
Bmp:30 = "FrmMainvis.frx":3BDE8
Key:30 = "#Klkmenclin"
Bmp:31 = "FrmMainvis.frx":3CB50
Key:31 = "#klkuti"
Bmp:32 = "FrmMainvis.frx":3E8B8
Key:32 = "#mnuchng"
Mask:33 = 16711935
Key:33 = "#Relax"
Bmp:34 = "FrmMainvis.frx":40620
Key:34 = "#Game"
Bmp:35 = "FrmMainvis.frx":42388
Key:35 = "#asds"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Times New Roman"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -