VB的软件开发环境是什么？
VB为使用者提供了一个功能强大而又易于操作的集成开发环境，用VB开发应用程序的大部分工作都可以通过该集成开发环境来完成。低版本的Vb用Microsoft Visual Basic 6.0高级版本的Vb(Vb.NET)用Microsoft Visual Studio,有2003,2005,2008还有2010版的。扩展资料：VBAVisual Basic for Applications(VBA)：包含在微软的应用程序中，以及类似WordPerfect、Office这样第三方的产品里面。VBSVBScript(VBS)：是默认的ASP语言，还可以用在Windows脚本编写和网页编码中。尽管它的语法类似于VB，但是它却是一种完全不同的语言。参考资料来源：百度百科-Visual Basic
如何用VB做画图板
你试试看吧
Dim t As Byte, s As Byte, c As Byte
Private Sub Command1_Click()
t = 1
If Form1.ForeColor = Form1.BackColor Then ForeColor = QBColor(c)
If Form1.DrawWidth = 12 Then Form1.DrawWidth = s
End Sub
Private Sub Command2_Click()
Form1.DrawWidth = 12
t = 2
End Sub
Private Sub Command3_Click()
Cls
Form1.ForeColor = vbBlack
Form1.DrawWidth = 1
t = 1
End Sub
Private Sub Form_Load()
Dim i%
For i = 0 To 15
Picture1(i).BackColor = QBColor(i)
Next i
Form1.ForeColor = vbBlack
t = 1
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 Button = 1 And t = 1 Then Line -(X, Y)
If Button = 1 And t = 2 Then Form1.ForeColor = Form1.BackColor: Form1.MousePointer = 4: Line -(X, Y)
End Sub
Private Sub Picture1_Click(Index As Integer)
Form1.ForeColor = Picture1(Index).BackColor
c = Index
End Sub
Private Sub Picture2_Click()
Form1.DrawWidth = 1: s = 1
End Sub
Private Sub Picture3_Click()
Form1.DrawWidth = 2: s = 2
End Sub
Private Sub Picture4_Click()
Form1.DrawWidth = 4: s = 4
End Sub
Private Sub Picture5_Click()
Form1.DrawWidth = 8: s = 8
End Sub
求VB画图板程序
不能画矩形,其他功能都能实现.以前自己做的.需要的话可以发给你.
Dim t As Byte, s As Byte, c As Byte
Private Sub Command1_Click()
t = 1
If Form1.ForeColor = Form1.BackColor Then ForeColor = QBColor(c)
If Form1.DrawWidth = 12 Then Form1.DrawWidth = s
End Sub
Private Sub Command2_Click()
Form1.DrawWidth = 12
t = 2
End Sub
Private Sub Command3_Click()
Cls
Form1.ForeColor = vbBlack
Form1.DrawWidth = 1
t = 1
End Sub
Private Sub Form_Load()
Dim i%
For i = 0 To 15
Picture1(i).BackColor = QBColor(i)
Next i
Form1.ForeColor = vbBlack
t = 1
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 Button = 1 And t = 1 Then Line -(X, Y)
If Button = 1 And t = 2 Then Form1.ForeColor = Form1.BackColor: Form1.MousePointer = 4: Line -(X, Y)
End Sub
Private Sub Picture1_Click(Index As Integer)
Form1.ForeColor = Picture1(Index).BackColor
c = Index
End Sub
Private Sub Picture2_Click()
Form1.DrawWidth = 1: s = 1
End Sub
Private Sub Picture3_Click()
Form1.DrawWidth = 2: s = 2
End Sub
Private Sub Picture4_Click()
Form1.DrawWidth = 4: s = 4
End Sub
Private Sub Picture5_Click()
Form1.DrawWidth = 8: s = 8
End Sub
