lihonggen0大哥请进，你给我解答的问题我还是不太明白，能不能再劳您架，帮我说明一下

gemma 2003-08-20 04:04:44

lihonggen0大哥，您在http://expert.csdn.net/Expert/topic/2164/2164449.xml?temp=.2073786一帖中帮我解答的问题我还是不太明白，能不能再劳您架，帮我仔细说明一下。我对vb还不太熟，不太懂您给我写的代码，也不知道该怎么用，您帮人帮到底，十分感谢。

...全文

86 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

lihonggen0 2003-08-21

打赏
举报

http://expert.csdn.net/Expert/topic/2163/2163066.xml?temp=.9357111

lihonggen0 2003-08-21

打赏
举报

http://expert.csdn.net/Expert/topic/2163/2163066.xml?temp=.9357111

lihonggen0 2003-08-21

打赏
举报

这几个都是自己定义的变量，
dim nScreenWidth as integer
dim nScreenHeight as integer
dim cProgramName as string

gemma 2003-08-21

打赏
举报

谢谢zyl910.
不过还是想请教lihonggen0大哥，你给我的解答中有那么一段代码
nScreenWidth = Screen.Width / 15 '屏幕宽度
nScreenHeight = Screen.Height / 15 '屏幕高度
Dim K As Integer
Dim nAnswer As Long
If nScreenWidth <> 800 And nScreenHeight <> 600 Then
nAnswer = MsgBox("警告：显示器当前分辨率为 " & Trim(str(nScreenWidth)) & "x" & _
Trim(str(nScreenHeight)) & "，为使系统正常运行" & Chr(13) & _
"请将分辨率设置为 800x600 增强色(16位)" & _
"，是否继续？", vbYesNo, cProgramName)
Select Case nAnswer
Case vbYes
K = SetDisplayMode(800, 600, 16)
Case vbNo
End
End Select
End If
这里面的nScreenWidth和nScreenHeight是自己定义的变量吧？
还有在
nAnswer = MsgBox("警告：显示器当前分辨率为 " & Trim(str(nScreenWidth)) & "x" & _
Trim(str(nScreenHeight)) & "，为使系统正常运行" & Chr(13) & _
"请将分辨率设置为 800x600 增强色(16位)" & _
"，是否继续？", vbYesNo, cProgramName)
这里面的写在最后的那个cProgramName是什么？我把这段代码拷到程序中，出错说“变量未定义”光标就停在cProgramName上。
能具体说明一下吗？谢谢

zyl910 2003-08-20

打赏
举报

Resize 事件示例
本例在任何调整窗体大小时的时候，都将自动调整一个 TextBox 控件的大小以填充该窗体。要尝试这个例子，可以将代码粘贴到包含 TextBox 的窗体声明部分。设置 TextBox 控件的 MultiLine 属性为 True，ScrollBars 属性为 3，BorderStyle 属性为 0，然后按F5键并调整窗体大小。

Private Sub Form_Load ()
Text1.Text = "" ' 清除文本。
End Sub

Private Sub Form_Resize ()
Text1.Move 0,0, ScaleWidth, ScaleHeight
End Sub

zyl910 2003-08-20

打赏
举报

Resize 事件

当一个对象第一次显示或当一个对象的窗口状态改变时该事件发生。（例如，一个窗体被最大化、最小化或被还原。）

语法

Private Sub Form_Resize( )

Private Sub object_Resize(height As Single, width As Single)

Resize 事件语法包括下列部分：

部分描述
object 一个对象表达式，其值是“应用于”列表中的一个对象。
height 指定控件新高度的数。
width 指定控件新宽度的数。

说明

当父窗体调整大小时，可用 Resize 事件过程来移动控件或调整其大小。也可用此事件过程来重新计算那些变量或属性，如：ScaleHeight 和 ScaleWidth 等，它们取决于该窗体的尺寸。如果在调整大小时想要保持图形的大小与窗体的大小成比例，可在一个 Resize 事件中通过使用 Refresh 方法调用 Paint 事件。

任何时候只要 AutoRedraw 属性被设置为 False 而且窗体被调整大小，Visual Basic 也会按 Resize 和 Paint 的顺序调用相关的事件。当给这些相关事件附加过程时，要确保它们的操作不会互相冲突。

当一个 OLE 容器控件的 SizeMode 属性被设置为 2（自动调大小）时，该控件自动根据所显示的包含于该控件之中的对象的大小来调整其大小。如果所显示的对象的大小发生变化，则该控件自动重调其大小以适应该对象的变化。当这种情况出现时，为该对象调用 Resize 事件会在 OLE 容器控件被重调大小之前发生。height 和 width 部分指示该对象显示的最佳大小（这个尺寸由创建该对象的应用程序决定）。可通过在 Resize 事件中改变 height 和 width 部分的值来按不同的尺寸设定控件的大小。

zyl910 2003-08-20