?? adaprint.cls
字號:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsadaprint"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private top_car_x As Long
Private top_car_y As Long
Private left_car_x As Long
Private left_car_y As Long
Private right_car_x As Long
Private right_car_y As Long
Public Function settop_car_x(Optional x As Long = 0) As Boolean
top_car_x = x
End Function
Public Function gettop_car_x() As Long
gettop_car_x = top_car_x
End Function
Public Function test() As Boolean
MsgBox "top_car_x=" & top_car_x
End Function
Public Function setposition() As Boolean
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -