Private Sub Form_Load()
Combo1.AddItem "大专"
Combo1.AddItem "本科"
Combo1.AddItem "硕研究生"
Combo1.AddItem "博士研究生"
Combo2.AddItem "无"
Combo2.AddItem "学士"
Combo2.AddItem "硕"
Combo2.AddItem "博士"
End Sub

Private Sub Image1_Click()

Str =
Right = Right(Str, 3)
If Right <> "jpg" Then
mgbox "你选的不是图片"
Else
Image.Stretch = ture
Image1.Picture = LoadPicture(Str)
End If
End Sub


当我选中单击image控件时就报出Str参数不可选。。
本来应该是要调出选择框的。

真是错误百出
报Str不可用是因为你没定义,或者不强制定义
Right 变量  跟Right函数同名
Image.Stretch 还是Image1.Stretch
mgbox?  Msgbox啊!!

[un]Joforn[/un]回复[bo][un]kgdwgija[/un] 在 2008-10-11 13:17 的发言：[/bo]

Private Sub Image1_Click()
  Dim STR1 As String, Right3 As String
   =  Len(STR1) Then
    Right3 = Right(STR1, 3)
    If Right3 <> "jpg" Then
      mgbox "你选的不是图片"
    Else
      Image.Stretch = ture
      Image1.Picture = LoadPicture(STR1)
    End If
  End If
End Sub

simpson 骂的好。。。学习学习。。。。我是新手