vb6.0程序代码（vb60程序代码编写规则中,不正确的事什么）

今天给各位分享vb6.0程序代码的知识，其中也会对vb60程序代码编写规则中,不正确的事什么进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB6.0代码
• 2、vb6.0程序， 求代码，
• 3、关于VB6.0的一个小程序代码
• 4、VB6.0编程代码

VB6.0代码

这个需要你记录今天他输入了多少次，至于记录到注册表、文本文件、INI文件还是记录再数据库中，代码是不一样的。

vb6.0程序， 求代码，

Option Explicit

Dim Graphics As Long

Dim pen As Long

Private Sub Command1_Click()

GdipCreatePen1 HFFFF0000, 1, UnitPixel, pen

GdipDrawRectangleI Graphics, pen, 30, 30, 100, 100

End Sub

Private Sub Command2_Click()

Me.DrawWidth = 1

Me.Line (30, 30)-(1000, 1000), vbBlack, B

End Sub

Private Sub Command3_Click()

Dim i As Integer

For i = 200 To 1500

 Me.PSet (1500, i), vbYellow

 Me.PSet (1500 + 1500, i), vbYellow

Next

For i = 1500 To 3000

 Me.PSet (i, 200), vbYellow

 Me.PSet (i, 1500), vbYellow

Next

End Sub

Private Sub Form_Load()

InitGDIPlus

GdipCreateFromHDC Me.hDC, Graphics

End Sub

Private Sub Form_Unload(Cancel As Integer)

GdipDeletePen pen

GdipDeleteGraphics Graphics '释放graphics占用的内存

TerminateGDIPlus

End Sub

窗体上的代码如上，窗体上放三个按键，分别实现画矩形，其中方式1，使用GDI画矩形，需要自己添加GDi引用

关于VB6.0的一个小程序代码

把四个checkBox定义成一个控件数组（假设叫Check1），文本框名为Text1，代码如下：

Private

Sub

Check1_Click(Index

As

Integer)

Text1.Text

=

"我最喜欢的科目是

"

For

i

=

To

Check1.Count

-

1

If

Check1(i).Value

Then

Text1.Text

=

Text1.Text

Check1(i).Caption

End

If

Next

i

End

Sub

VB6.0编程代码

im a(100) 'a()数据

'此处来赋值

Dim b(5)

For i = 0 To 99

If a(i) 6 Then

b(0) = b(0) + 1

Else

b(Int(a(i) - 5)) = b(Int(a(i) - 5))

End If

Next i

Print "6.00", "6~6.99", "7~7.99", "8~8.99", "9~9.99"

For i = 0 To 4

Print b(i),

Next i

vb6.0程序代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb60程序代码编写规则中,不正确的事什么、vb6.0程序代码的信息别忘了在本站进行查找喔。