27/09/09 13:56
Swanny
Per il fatto di ordinare i campi non ci son riuscito, per quanto riguarda le copertine ho fatto così modificando dei codici trovati su internet:
Ho creato un pulsante, un campo image e una casella di testo:
nel pulsante ho scritto:
Private Sub cmdcopertina_Click()
CommonDialog1.ShowOpen
Image2.Picture = LoadPicture(CommonDialog1.FileName)
Text12.Text = CommonDialog1.FileName
End Sub
invece sul controllo image:
Private Sub Image2_Click()
If Dir(Text12.Text) <> "" Then
Image2.Picture = LoadPicture(Text12.Text)
End If
End Sub
per adesso sembra andare
aaa