为什么一使用screen.width,编译器就会死掉? 本帖最后由 bcrun 于 2011-07-24 09:31:16 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我没编译器死,但出现Screen.Width 是只读属性,它会提示不能给只读属性赋值。拜托这个设置是在属性框内赋值,你这么弄,它是读属性框内的还是读FORM_load里的。这难道还要搞个优先级 Me.Left = screen.width '一旦这里改成screen.width,整个编译器都会死这样的话,整个窗体就会再屏幕的右边,由于不在当前屏幕中显示,所以无法触发Form_Paint事件,所以 应该是不动的才对。不会导致编译器出问题。 不是死了,而是没有触发Paint事件,你不能把窗口隐藏,如果隐藏了,就不能触发Paint你可以这样试一试:Option ExplicitPrivate Sub Form_Load() Me.Left = Screen.Width - Me.Width '一旦这里改成screen.width,整个编译器都会死End SubPrivate Sub Form_Paint() While Me.Left > 0 DoEvents Me.Left = Me.Left - 1 WendEnd Sub这个代码正好没有遮挡住窗体,就没有问题。 编译器是编译代码的吧,你编译为EXE的时候死了? vb调用sqlserver存储过程的问题 如何捕捉到ComboBox右側的按鈕單擊事件? 快要疯了,怎么会出现这样的问题?大侠进来看看。 如何做类似ComboBox控件且在下拉列表下方添加按钮(如图) 怎么向DATAGRID控件的格子添加数据呢? 关于类的问题 关于resource leak smartcheck SOS!我没招了,请各位支招!!!! 自制山寨版的VB网页刷新器怎么优化? 关于DataReport {散分} commondialog 的fiter 问题
这样的话,整个窗体就会再屏幕的右边,由于不在当前屏幕中显示,所以无法触发Form_Paint事件,所以 应该是不动的才对。不会导致编译器出问题。
Private Sub Form_Load()
Me.Left = Screen.Width - Me.Width '一旦这里改成screen.width,整个编译器都会死
End SubPrivate Sub Form_Paint()
While Me.Left > 0
DoEvents
Me.Left = Me.Left - 1
Wend
End Sub这个代码正好没有遮挡住窗体,就没有问题。