📄 frmitem.frm
字号:
Width = 1035
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "左手持："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 240
Left = 6600
TabIndex = 24
Top = 5160
Width = 1035
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "身披："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 240
Left = 6600
TabIndex = 23
Top = 6000
Width = 780
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "头戴："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 240
Left = 6600
TabIndex = 22
Top = 6480
Width = 780
End
Begin VB.Label lblrighthand
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "无"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 240
Left = 7680
TabIndex = 21
Top = 4680
Width = 270
End
Begin VB.Label lbllefthand
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "无"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 240
Left = 7680
TabIndex = 20
Top = 5160
Width = 270
End
Begin VB.Label lblbody
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "无"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 240
Left = 7680
TabIndex = 19
Top = 6000
Width = 270
End
Begin VB.Label lblhead
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "无"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0080C0FF&
Height = 240
Left = 7680
TabIndex = 18
Top = 6480
Width = 270
End
Begin VB.Label lblkind
Caption = "武器"
Height = 255
Index = 0
Left = 2760
TabIndex = 17
Top = 3480
Visible = 0 'False
Width = 735
End
Begin VB.Label lblkind
Caption = "武器"
Height = 255
Index = 1
Left = 3840
TabIndex = 16
Top = 3480
Visible = 0 'False
Width = 735
End
Begin VB.Label lblkind
Height = 255
Index = 2
Left = 4800
TabIndex = 15
Top = 3480
Visible = 0 'False
Width = 735
End
Begin VB.Label lblkind
Height = 255
Index = 3
Left = 5760
TabIndex = 14
Top = 3480
Visible = 0 'False
Width = 735
End
Begin VB.Label lblkind
Height = 255
Index = 4
Left = 6720
TabIndex = 13
Top = 3480
Visible = 0 'False
Width = 855
End
Begin VB.Label lblkind
Height = 255
Index = 5
Left = 7680
TabIndex = 12
Top = 3480
Visible = 0 'False
Width = 855
End
Begin VB.Shape kuangrighthand
BorderColor = &H0000FF00&
FillColor = &H0000FF00&
Height = 375
Left = 8640
Top = 4560
Visible = 0 'False
Width = 375
End
Begin VB.Shape kuanglefthand
BorderColor = &H0080FF80&
FillColor = &H0000FF00&
Height = 375
Left = 8640
Top = 5040
Visible = 0 'False
Width = 375
End
Begin VB.Shape kuangbody
BorderColor = &H0080FF80&
FillColor = &H0000FF00&
Height = 375
Left = 8640
Top = 6000
Visible = 0 'False
Width = 375
End
Begin VB.Shape kuanghead
BorderColor = &H0080FF80&
FillColor = &H0000FF00&
Height = 375
Left = 8640
Top = 6480
Visible = 0 'False
Width = 375
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 0
Left = 720
TabIndex = 11
Top = 4440
Visible = 0 'False
Width = 90
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 1
Left = 1920
TabIndex = 10
Top = 4440
Visible = 0 'False
Width = 90
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 2
Left = 2880
TabIndex = 9
Top = 4440
Visible = 0 'False
Width = 90
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 3
Left = 4080
TabIndex = 8
Top = 4440
Visible = 0 'False
Width = 90
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 4
Left = 5280
TabIndex = 7
Top = 4440
Visible = 0 'False
Width = 90
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 5
Left = 600
TabIndex = 6
Top = 5760
Visible = 0 'False
Width = 90
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 6
Left = 1800
TabIndex = 5
Top = 5760
Visible = 0 'False
Width = 90
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 7
Left = 2880
TabIndex = 4
Top = 5760
Visible = 0 'False
Width = 90
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 8
Left = 4080
TabIndex = 3
Top = 5760
Visible = 0 'False
Width = 90
End
Begin VB.Label lblitem
AutoSize = -1 'True
Height = 180
Index = 9
Left = 5280
TabIndex = 2
Top = 5760
Visible = 0 'False
Width = 90
End
End
Attribute VB_Name = "frmitem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer
Dim ii As Integer
Dim gong As Integer
Dim xue As Integer
Dim fang As Integer
Dim min As Integer
Dim righthand As String
Dim lefthand As String
Dim body As String
Dim head As String
Dim whichwuqi As Integer
Dim whichwuqi2 As Integer
Dim whichwuqi3 As Integer
Dim whichwuqi4 As Integer
Private Sub shuxing()
frmstate.lblxue.Caption = CInt(frmstate.lblxue.Caption) + CInt(xue)
frmstate.lblwuligong.Caption = CInt(frmstate.lblwuligong.Caption) + CInt(gong)
frmstate.lblwulifang.Caption = CInt(frmstate.lblwulifang.Caption) + CInt(fang)
frmstate.lblwulimin.Caption = CInt(frmstate.lblwulimin.Caption) + CInt(min)
End Sub
Private Sub Form_Load()
InitDirectDraw frmitem, 640, 480, 16
righthand = ""
lefthand = ""
body = ""
head = ""
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -