| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 116 人关注过本帖
标题:怎么使程序一运行就能自动显示pictureboxd中用furnace函数绘制的图
只看楼主 收藏
建生65
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2018-5-10
结帖率:100%
  问题点数:0  回复次数:5   
怎么使程序一运行就能自动显示pictureboxd中用furnace函数绘制的图
furnace函数是自己编的如下
'高炉轮廓
Public Sub furnace()
    Dim i As Integer
    Picture2.Scale (-6.5, 1.5)-(6.5, -16.5)
    Picture2.DrawWidth = 1
    Picture2.Line (-3, 0)-(0, 0), RGB(0, 0, 0)
    Picture2.Line (0, 0)-(0, -14.6), RGB(0, 0, 0)
    Picture2.Line (0, -14.6)-(-4.4006, -14.6), RGB(0, 0, 0)
    Picture2.Line (-4.4006, -14.6)-(-3, -2), RGB(0, 0, 0)
    Picture2.Line (-3, -2)-(-3, 0), RGB(0, 0, 0)
   
    Picture2.Line (0, -14.6)-(4.4006, -14.6), RGB(0, 0, 0)
    Picture2.Line (4.4006, -14.6)-(3, -2), RGB(0, 0, 0)
    Picture2.Line (3, -2)-(3, 0), RGB(0, 0, 0)
    Picture2.Line (3, 0)-(0, 0), RGB(0, 0, 0)
   
   
    Picture2.Line (-5.5, 0.5)-(5.5, 0.5)
    Picture2.Line (5.5, 0.5)-(5.5, -16.5)
    Picture2.Line (-5.5, 0.5)-(-5.5, -16.5)
   
    For i = -5 To 5 Step 1
    Picture2.CurrentX = i - 0.2
    Picture2.CurrentY = 0.9
    Picture2.Print i
    Next i
   
   
    For i = 0 To -16 Step -1
    Picture2.CurrentX = 5.5
    Picture2.CurrentY = i
    Picture2.Print i
    Next i
   
    Picture2.Line (-3, -1.44)-(-2.235, -1.25), RGB(0, 0, 0)
    Picture2.Line (-2.235, -1.25)-(-1.55, -1.697), RGB(0, 0, 0)
    Picture2.Line (-1.55, -1.697)-(-0.775, -1.504), RGB(0, 0, 0)
    Picture2.Line (-0.775, -1.504)-(0, -1.951), RGB(0, 0, 0)
   
    Picture2.Line (3, -1.44)-(2.235, -1.25), RGB(0, 0, 0)
    Picture2.Line (2.235, -1.25)-(1.55, -1.697), RGB(0, 0, 0)
    Picture2.Line (1.55, -1.697)-(0.775, -1.504), RGB(0, 0, 0)
    Picture2.Line (0.775, -1.504)-(0, -1.951), RGB(0, 0, 0)
End Sub
想让程序一运行就能把furnace()中的图形显示在picture2中,我本来想用窗体初始化事件或者加载事件来实现。如:
Private Sub Form_Load()
    Call furnace
End Sub
但好像不行,有老哥知道怎么去实现吗,知道的老哥请指导小弟,在此谢过。
2018-05-10 21:53
建生65
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2018-5-10
  得分:0 
哦,应该furnace是个子过程不是函数
2018-05-10 22:01
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:203
帖 子:4163
专家分:25570
注 册:2008-10-15
  得分:0 
Private Sub Picture2_Paint()
call furnace
end sub
该事件会经常被触发,要尽可能不要用这个办法。

例如,把
Private Sub Form_Load()
    Picture2.AutoRedraw = True   '设为自动重绘
    Call furnace
End Sub

授人于鱼,不如授人于渔
早已停用QQ了
2018-05-10 22:14
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:17
帖 子:184
专家分:963
注 册:2016-3-10
  得分:0 
Private Sub Form_Load()
    Show
    Picture2.SetFocus'此条也可以注释掉
    Call furnace
End Sub

[此贴子已经被作者于2018-5-10 23:29编辑过]

2018-05-10 23:24
建生65
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2018-5-10
  得分:0 
回复 3楼 风吹过b
谢谢版主,按您说的方法解决了
2018-05-14 15:39
建生65
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2018-5-10
  得分:0 
回复 4楼 wds1
谢谢
2018-05-14 15:40







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.055911 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved