建了个界面模块，程序说 Me 在模块中无效。怎么办？

Imports System.IO

Module 界面

    Public Sub main()

        Dim pic As New PictureBox()
        pic.Location = New Point(20, 48)
        pic.Size = New Size(98, 98)
        pic.Show()
        pic.BringToFront()
        pic.SizeMode = PictureBoxSizeMode.StretchImage
        pic.Image = New Bitmap(Application.StartupPath & "123.jpg")
        Me.Controls.Add(pic)－－－－－－－－－－－－－－－－－－－－－－　程序说 Me 在模块中无效

    End Sub

End Module

8 个解决方案

#1

你的写法肯定是不对的。
什么时候能用me？
Me 关键字的行为与引用类的当前实例的对象变量类似。一个类可以有多个实例，Me 提供了一种方法，用来引用代码正在执行的该类的特定实例。换言之，你必须有一个class
可以这样写：
Module 界面
    Class test
        Inherits System.Windows.Forms.Form
        Public Sub main()

            Dim pic As New PictureBox()
            pic.Location = New Point(20, 48)
            pic.Size = New Size(98, 98)
            pic.Show()
            pic.BringToFront()
            pic.SizeMode = PictureBoxSizeMode.StretchImage
            pic.Image = New Bitmap(Application.StartupPath & "123.jpg")
            Me.Controls.Add(pic)
        End Sub
    End Class
End Module

#2

OKOKOK :)

#3

Montaque(Rainman) 不行啊
这照你的意思VB提示我在 "123.界面" 中未找到 "Sub Main"

怎么办？

#4

把 Montaque(Rainman)的代码中的Sub Main 改成Shared，然后设置启动对象为”界面“就可以了。

#5

也成这样 Shared Sub main()

VB提示 Me 仅在实例方法中有效

#6

me = pic

#7

me 是不能赋值的，楼上的兄台。

#8

还是不行

#1

#2