社区
VB基础类
帖子详情
频繁LOAD,UNLOAD FORM 会造成FORM的PICTURE显示不出来,怎么办
zhaoming
2000-02-15 09:02:00
...全文
165
4
打赏
收藏
频繁LOAD,UNLOAD FORM 会造成FORM的PICTURE显示不出来,怎么办
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Firing_Sky
2000-02-15
打赏
举报
回复
同意dongdong的意见(可惜来晚了一步^_^)
dongdong
2000-02-15
打赏
举报
回复
通常不建议频繁使用LOAD和UNLOAD,如果窗体不使用较多的资源,可使用SHOW 和HIDE的方法,需要时SHOW 即可,反之,用HIDE 的隐藏,这样就不会出现你的问题。同时试试将窗体的AUTOREDRAW属性改为TRUE。
forgettor
2000-02-15
打赏
举报
回复
除了set xxx=nothing外,能不能用窗口或picturebox的refresh或repaint方法?
DOU
2000-02-15
打赏
举报
回复
在程序中将不用的资源释放,在Form_unload事件中将所有Form中的用new 创建的资源释放 set xxx = nothing
一劳永逸让VB自动改变控件大小
Private Sub
Form
_
Load
()//初始化设置
Pic
tu
re1.AutoSize = True Command1.Caption = ″
显示
网格″ Command2.Caption = ″取消网格″
Form
1.Caption = ″
显示
网格图像演示程序″ End Sub -------...
简单小动画
Private Sub
Form
_
Load
() Dim i As Integer '加载ImageList控件的图象 For i = 0 To 17 imgLst.ListImages.Add , , Image1(i).
Pic
tu
re Next i '设置初始图像索引 imgIndex = 0 End Sub '利用时钟实现...
打冰雹游戏源程序
(2)要求同时
显示
10个圆球,每个圆球的颜色和下落速度各不相同。窗口底部的箭头一直指向鼠标指针的方向。单击鼠标射击时,
显示
一条从箭头发出到达鼠标指针的直线表示子弹轨迹。 (3)程序共有4个难度等级,分别是...
VB电子相册
Private Sub
Form
_Un
load
(Cancel As Integer) conn.Close Set rs = Nothing End Sub Sub login() Dim strSql As String userName = "" If Trim(cbUserName.Text) = "" Then MsgBox "用户名不用为空,请选择...
再谈VB制作不规则窗口
Private Sub
Form
_
Load
() 'Me.Show Dim t As Single Dim rtn As Long rtn = GetWindowLong(hwnd, GWL_EXSTYLE) rtn = rtn Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes ...
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章