展开全部
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("initial_picture")
ComboBox1.Items.Add("change_picture")
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "change_picture" Then
PictureBox1.Load("需要改的照片路径,注意加上文件后缀名")
Else
PictureBox1.Load("照片路径")
End If
End Sub
End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("initial_picture")
ComboBox1.Items.Add("change_picture")
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = "change_picture" Then
PictureBox1.Load("需要改的照片路径,注意加上文件后缀名")
Else
PictureBox1.Load("照片路径")
End If
End Sub
End Class
追问
把代码复制粘贴后,系统提示我缺少语句结束。
追答
可否截图?
展开全部
Private Sub Combo1_Change()
Text1.Text = Combo1.Text
End Sub
Text1.Text = Combo1.Text
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Combo1_Click()
Text1.Text = "我变化了"
End Sub
Text1.Text = "我变化了"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询