编译报错 提示未找到方法或数据成员

Question

Option Explicit
Dim MsgText As String
Private Sub CENGD_Click()
Me.Arrange vbCascade
End Sub
错误指向了Arrange
各位麻烦帮看一下 这个需要什么库还是怎么地?VB我实在是没接触过啊.....

Answer 1

Private sArrange As StringPublic Property Get Arrange() As String
             Arrange = sArrange
End PropertyPublic Property Let Arrange(ByVal sNewValue As String)
            sArrange = sNewValue
End PropertyPrivate Sub CENGD_Click()
            With Me
                .Arrange = "aaaa"
            End With
            
            MsgBox Me.Arrange
End Sub
试试这个代码

Answer 2

Private sArrange As String
'定义一个私有字符串变量,仅在窗体或类内部访问'给窗体或累定义一个属性,这个属性指向了私有变量sArrange.'使用公有的get方式来获得私有变量sArrange的值
Public Property Get Arrange() As String
             Arrange = sArrange
End Property
'使用公有的set方式来更新私有变量sArrange的值
Public Property Let Arrange(ByVal sNewValue As String)
            sArrange = sNewValue
End Property
Private Sub CENGD_Click()
            With Me 'ME类似(仅仅是类似)于C++和java的this,指向了当前的窗体或者类
                .Arrange = "aaaa" '这里的Arrange相当于sArrange的一个别名
            End With
            
            MsgBox Me.Arrange
End Sub表达能力不好,不知你能不能看明白 哈哈

Answer 3

那像我的那个代码不行吗?这是个源码.为什么编译不过去了?
Arrange在这个窗体中好多地方用到了呢

Answer 4

如果你在窗体里面me就代表这个formme.arrange
arragen就是me的一个property
错误指向arrage的时候，你第一个要检查arrage是否定义了，如果没有的话就需要定义一下。就不会报错了

Answer 5

Arrange 方法用以重排 MDIForm 对象中的窗口或图标。 MDI 窗体才可使用此方法,普通窗体无此方法

Answer 6

查一下MSDN的Arrange 方法你就一切都明白了

Answer 7

我VB是零基础啊 呵呵
虽然和VC有些思想差不多 但是还是很不一样

Answer 8

怎么看出来我那个窗体是不是MDI窗体啊?由于我的工作和VB没关系 所以我不想花很多时间去学习VB 只是想通过一个小项目去大概了解一下VB

Answer 9

呵呵 看了下, MDI窗体用的不是很多.. 谢谢 

Answer 10

'MDI
private sub MDIForm_Load()
end sub
'普通
private sub Form_Load()
end sub'窗体属性窗口
'黑色字体控件名称后面就是控件类型