Question

菜鸟急求！如何将多个图片以文件形式保存，并用ComboBox来调用这些文件并显示？

我用VB在PictureBox上画好了图，现在用两个Button控件、一个TextBox控件和一个ComboBox来实现以下功能：在TextBox中输入名称如“图一”来给画好的图命名，Button1用来保存画好的图并以文件的形式存放在主程序的文件夹里，Button2用来清除画好的图即可以重新来画新的图。在存放若干张图后文件夹中以有“图一”、“图二”.....等文件，再用ComboBox中相应的1、2、3..等数字来调用“图一”、“图二”、“图三”并在PictureBox中显示。
有的人说用Select case 来做，但是我还是一头雾水，望大神相助啊~把仅有的分数全部供上了！

Answer 1

'从ComboBox中调入图片
Private Sub Combo1_Click()
Picture1.Picture = LoadPicture(App.Path & "\" & Combo1.Text & ".bmp")
End Sub

'保存图片
Private Sub Command1_Click()
SavePicture Picture1.Image, App.Path & "\" & Text1.Text & ".bmp"
Combo1.AddItem Text1.Text
Combo1.ListIndex = Combo1.NewIndex
End Sub

'清除图片
Private Sub Command2_Click()
Picture1.Cls
End Sub

'初始化
Private Sub Form_Load()
Picture1.AutoRedraw = True
Combo1.Clear
End Sub

'简易的画图程序，当然你可以换自己的画图程序
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Line -(X, Y), vbBlack
End Sub

'以上代码涉及的控件：Picture1、Text1、Combo1、Command1、Command2

追问

基本上没什么大问题，但是一旦退出运行，再运行的话之前保留在ComboBox里的东西就没了，这该怎么办？

追答

那就应该在Form_Load里把文件再读到ComboBox里：

Private Sub Form_Load()
Dim d As String
Picture1.AutoRedraw = True
d = Dir(App.Path & "\*.bmp")
Do Until d = ""
Combo1.AddItem Left(d, Len(d) - 4)
d = Dir
Loop
End Sub

追问

还是搞不定，这个功能本来是我整个程序的一个小问题，现在看来是大问题了，你有没有QQ什么 的联系方式，我把我整个程序文件发给你帮我看看吧，改来改去怎么改都不行..愁死我了都ToT