2012年01月_邢金聪

原创 VB工程--百例46---园、椭圆、饼形图

Option ExplicitPrivate Sub Command1_Click() Pic1.Cls 清除图片框中的内容 Pic1.FillColor = vbBlue 填充颜色是蓝色 Pic1.FillStyle = 0

2012-01-31 20:57:19 1910 1

原创 VB工程---百例45--同心圆.

Option ExplicitPrivate Sub form_Click() Dim cx, cy, radius, limit ScaleMode = 3 设置同心圆的单位像素是3 cx = ScaleWidth / 2 圆心的横坐标是窗体宽度的一半 cy = Scale

2012-01-31 20:22:41 676 1

原创 VB工程--百例43--图形绘制

Option ExplicitPrivate Sub Command1_Click() picture1.Cls picture1.Line (picture1.ScaleLeft + 100, picture1.ScaleTop + 100)- _ (picture1.ScaleWidth - 100, picture1.ScaleHe

2012-01-31 11:33:22 668 1

原创 VB工程20---百例43----群星闪烁

2012-01-30 20:57:07 495 1

原创 vb工程21--百例41--五彩碎纸

Option Explicit Private Sub Command1_Click() EndEnd Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) position Dim XP

2012-01-30 20:18:32 681 1

原创 VB工程20--百例38--图形变换填充

Option ExplicitDim a As Integer, b As IntegerPrivate Sub cmdfill_Click() b = Int(Rnd * 4) Select Case b Case 0 Shp1.FillStyle = vbFSSolid Shp1.FillColo

2012-01-30 16:07:33 671 1

原创 VB工程19--百例37--交通红绿灯

Option ExplicitPrivate Sub Command1_Click() EndEnd SubPrivate Sub Form_Load() Image1(0).Left = Image1(1).Left Image1(0).Top = Image1(1).Top Image1(2).Left = I

2012-01-30 15:25:07 1215 1

原创续上篇博客---第六章总结

http://115.com/file/anmiq76jvb第六章总结

2012-01-30 10:35:25 461 1

原创 vb总结第二章、第四章、第六章部分

http://115.com/file/c2pudgai#vb全集.png

2012-01-30 09:51:03 515 1

原创 VB工程18--百例34--喷泉

2012-01-30 08:03:54 439 1

原创 VB工程17--百例25--古诗测试

Option ExplicitPrivate Sub Combo1_Click() Select Case Combo1.Text Case "李白" Label3.Caption = "望庐山瀑布" & Chr(13) & Chr(13) & "日照香炉生紫烟，" _ & Chr(13) & Chr(13) & "遥看瀑

2012-01-27 19:42:23 820 1

原创 VB工程15---百例28---图像缩放

Option ExplicitPrivate Sub Command1_Click() On Error GoTo errorhandler 跳转到errorhandler行标签 Image1.Height = Image1.Height - 100 图像框的高度和宽度以100缇单位缩小 Image1.Width = Image

2012-01-20 14:59:08 536 1