Private Sub Command1_Click()
Text6.Text = Text4.Text * Text5.Text
Adodc1.Recordset.Update
MsgBox ("仓库统计完成")
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub cun_chaxun_Click()
kucun_chaxun.Show
Unload Me
End Sub
Private Sub cun_gengxin_Click()
kucun_gengxin.Show
End Sub
Private Sub cun_shanchu_Click()
kucun_shanchu.Show
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub ru_dengji_Click()
ruku_dengji.Show
Unload Me
End Sub
Private Sub chu_dengji_Click()
chuku_dengji.Show
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub mima_Click()
gengxinmima.Show
End Sub
Private Sub tianjiaming_Click()
tianjiayonghuming.Show
Unload Me
End Sub
Private Sub tuichu_Click()
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
End Sub
Private Sub mima_Click()
gengxinmima.Show
Unload Me
End Sub
Private Sub Text1_Change()
End Sub
Private Sub tianjiaming_Click()
tianjiayonghuming.Show
End Sub
Private Sub tuichu_Click()
Unload Me
End Sub
二．画笔程序代码
Dim flag As Integer
Dim pcolor As Long
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Combo1.Text = 1
pcolor = Form1.ForeColor
xiangpi.Enabled = True
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurrentX = X
CurrentY = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If flag = 1 Then
Form1.DrawWidth = 10
If Button = 1 Then
Line -(X, Y), Form1.BackColor
End If
End If
If flag = 0 Then
Form1.DrawWidth = Combo1.Text
If Button = 1 Then
Line -(X, Y), pcolor
End If
End If
End Sub
Private Sub juxing_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val(Text1.Text), 100 * Val(Text1.Text)), pcolor, B
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub huabi_Click()
flag = 0
Form1.DrawWidth = Combo1.Text
If Button = 1 Then
Line -(X, Y), pcolor
End If
End Sub
Private Sub Option1_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val需要完整内容的请联系QQ752018766，本文免费，转发请注明源于www.751com.cn
(Text2.Text), pcolor
End Sub
Private Sub Option3_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val(Text1.Text), 100 * Val(Text1.Text)), pcolor, B
End Sub
Private Sub xiangpi_Click()
flag = 1
xiangpi.Enabled = True
End Sub
Private Sub yanse_Click()
CommonDialog1.Action = 3
pcolor = CommonDialog1.Color
End Sub
Private Sub yuan_Click()
Circle (100 * Val(Text3.Text), 100 * Val(Text4.Text)), 300 * Val(Text2.Text), pcolor
End Sub
Private Sub zhixian_Click()
Line Step(100 * Val(Text3.Text), 100 * Val(Text4.Text))-Step(100 * Val(Text1.Text), 100 * Val(Text1.Text)), pcolor
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9]