Form_Load下调用函数无效

Question

为什么我在
Private Sub cmdnext_Click()
     Select Case teji
     Case 0
        Call loadpic1(lujingpath)
     Case 1
        Call loadpic1(lujingpath)
     Case 2
        Call teji2
     Case 3
        Call teji3
     Case 4
        Call teji4
     End Select
    End Sub
触发的调用函数有效
而在
Private Sub Form_Load()
     Select Case teji
     Case 0
        Call loadpic1(lujingpath)
     Case 1
        Call loadpic1(lujingpath)
     Case 2
        Call teji2
     Case 3
        Call teji3
     Case 4
        Call teji4
     End Select
    End Sub
一样的程序语句调用却无效呢？

Answer 1

你在Form_Load的时候，teji还没有值吧？也就是没有符合你给的Case条件，所以没有效果
要想它起作用，在写Select Case teji前，先给teji赋值

Answer 2

你要显示图片呀，当然不行了。Form_Load()前还有一个事件你可以设置teji
的值，但是对于在桌面图形图象操作就不行，你可以试试这个看什么效果
Private Sub Form_Load()
   print "Hello"
       End Sub
是不是什么也没有呢？

Answer 3

但是正常的话这个应该是有效的
Private Sub Form_Load()
  Me.Picture = LoadPicture("D:\ss.jpg")
End Sub
不知道你的为什么不可以

Answer 4

哦，对了，如果用
 Pd.Picture = LoadPicture(lujingpath)
图片就可以显示出来，就是调用函数不行，为什么呢？

Answer 5

对啊，海员，这个是有效的
teji有值的 
这个值是个全局变量，在上一个form中就已经赋值完了，有值的，我执行过了，但是不然该怎么办呢？重先在form_load中给teji再赋值一次？

Answer 6

建议做一个picture控件在窗体居中，再在picture上加载图片
Me.Picture1.BorderStyle = 0

Answer 7

你把这个函数帖出来给大伙看看吧
Call loadpic1(lujingpath)

Answer 8

用form的activate事件试验一下。
经常出现一种情况，希望在formload中执行一些代码，但是formload的时候窗体还没有创建完毕，所以会出现command_click有效，但是formload无效的情况。用activate代替一般都可以解决。

Answer 9

Sub loadpic1(ByVal picpath As String)
Dim pic As PictureBox
'pic.Cls
Pd.Cls
Ps.Cls
Set pic = Me.Controls.add("vb.picturebox", "pic", Me)
pic.AutoRedraw = True
pic.AutoSize = True
pic.Visible = True
pic.Picture = LoadPicture(lujingpath)
Picture1.PaintPicture pic.Picture, (Picture1.Width - pic.Width) / 2, (Picture1.Height - pic.Height) / 2, pic.Width, pic.Height, 0, 0, pic.Width, pic.Height, vbSrcCopy
Me.Controls.Remove pic
End Sub

Answer 10

用form的activate事件真的可以耶
谢谢谢谢 ：）

Answer 11

把form1的autodraw属性设置成true就行了