Option Explicit
Private Sub mnucercaperanno_Click()
Frmtrova.Show
End Sub
Private Sub Form_Load()
Me.Picture = Nothing
opzione = ""
Open App.Path & "\datibimbi.dat" For Random As #1
Close #1
Open App.Path & "\orariirene.dat" For Random As #2
Close #2
Open App.Path & "\orarimar.dat" For Random As #3
Close #3
Open App.Path & "\orariolulu.dat" For Random As #4
Close #4
Open App.Path & "\rette.dat" For Random As #5
Close #5
End Sub
Private Sub Label2_Click()
End Sub
Private Sub mnuapriimage_Click()
sfondo.FileName = ""
sfondo.DialogTitle = "Apri immagine"
sfondo.Filter = "Immagine jpeg |*.jpg"
sfondo.ShowOpen
If sfondo.FileName <> "" Then
foto.Picture = LoadPicture(sfondo.FileName)
End If
End Sub
Private Sub mnucercaperautore_Click()
Frmtrova.Show
End Sub
Private Sub mnucercapercogn_Click()
Frmtrova.Show
End Sub
Private Sub mnualbkexp_Click()
Shell App.Path & "\Albert king explorer.exe", vbNormalFocus
End Sub
Private Sub mnucalc_Click()
Shell App.Path & "\calcolatrice.exe", vbNormalFocus
End Sub
Private Sub mnucercapermese_Click()
opzione = "meseorlulu"
Frmtrova.Show
Close
End Sub
Private Sub mnucercapersett_Click()
opzione = "sorariolulu"
Frmtrova.Show
End Sub
Private Sub mnucercatitolo_Click()
Frmtrova.Show
End Sub
Private Sub mnuchar_Click()
Private Sub mnudatianagrafici_Click()
Dim numer As Integer
numer = FreeFile
Frmtabdatibimbi.Show
Open App.Path & "\datibimbi.dat" For Input As #numer
While Not EOF(numer)
Line Input #numer, strlinea
Frmtabdatibimbi.Listbimbi.AddItem strlinea
Wend
Close #numer
End Sub
Private Sub mnudatianbamb_Click()
Frmdatianbimbi.Show
End Sub
Private Sub mnuesci_Click()
Dim ris As Integer
ris = MsgBox("Sei sicuro di voler uscire dal programma?", vbQuestion + vbYesNoCancel, "Esci")
If ris = vbYes Then
MsgBox "Programma eseguito da Albert king 82!!!", vbInformation, "Creatore\2006"
End
End If
End Sub
Private Sub mnuforanno_Click()
Frmtrova.Show
End Sub
Private Sub mnuforcogn_Click()
Frmtrova.Show
End Sub
Private Sub mnuinfosu_Click()
Frminfo.Show
End Sub
Private Sub mnuisola_Click()
If mnuisola.Checked = False Then
mnuisola.Checked = True
mnuvenere.Checked = False
mnusfera.Checked = False
foto.Picture = LoadPicture(App.Path & "\14.jpg")
End If
End Sub
Private Sub mnuluana_Click()
Frmdatioreluana.Show
End Sub
Private Sub mnumarianna_Click()
Dim numer2 As Integer
numer2 = FreeFile
Frmdatimar.Show
Open "orarimar.dat" For Input As #numer2
While Not EOF(numer2)
Line Input #numer2, strlinea
Frmtabormar.Listtabmar.AddItem strlinea
Wend
Close #numer2
End Sub
Private Sub mnuorirene_Click()
Dim numer8 As Integer
numer8 = FreeFile
Frmtaborirene.Show
Open App.Path & "\orariirene.dat" For Input As #numer8
While Not EOF(numer8)
Line Input #numer8, strlinea
Frmtaborirene.Listtabirene.AddItem strlinea
Wend
Close #numer8
End Sub
Private Sub mnuorluana_Click()
Dim numer As Integer
numer = FreeFile
FrmTABorarioluana.Show
Open App.Path & "\orariolulu.dat" For Input As #numer
While Not EOF(numer)
Line Input #numer, strlinea
FrmTABorarioluana.Listorarioluana.AddItem strlinea
Wend
Close #numer
End Sub
Private Sub mnuormarianna_Click()
Dim number2 As Integer
number2 = FreeFile
Frmtabormar.Show
Open "orarimar.dat" For Input As #number2
While Not EOF(number2)
Line Input #number2, strlinea2
Frmtabormar.Listtabmar.AddItem strlinea2
Wend
Close #number2
End Sub
Private Sub mnuperanno_Click()
opzione = "annob"
Frmtrova.Show
End Sub
Private Sub mnupercogn_Click()
opzione = "cognomeb"
Frmtrova.Show
End Sub
Private Sub mnupermes_Click()
opzione = "mormar"
Frmtrova.Show
End Sub
Private Sub mnuperset_Click()
opzione = "sorarimar"
Frmtrova.Show
End Sub
Private Sub mnupmes_Click()
opzione = "mirene"
Frmtrova.Show
End Sub
Private Sub mnupset_Click()
opzione = "sorirene"
Frmtrova.Show
End Sub
Private Sub mnurettebam_Click()
Dim numero12 As Integer, rig As String
numero12 = FreeFile
Frmretteb.Show
Open App.Path & "\rette.dat" For Input As #numero12
While Not EOF(numero12)
Line Input #numero12, rig
Frmretteb.Listr.AddItem rig
Wend
Close #numero12
End Sub
Private Sub mnurettebimbi_Click()
Frmrette.Show
End Sub
Private Sub mnusfera_Click()
If mnusfera.Checked = False Then
mnuvenere.Checked = False
mnuisola.Checked = False
mnusfera.Checked = True
foto.Picture = LoadPicture(App.Path & "\sfera.jpg")
End If
End Sub
Private Sub mnuvenere_Click()
If mnuvenere.Checked = False Then
mnusfera.Checked = False
mnuisola.Checked = False
mnuvenere.Checked = True
foto.Picture = LoadPicture(App.Path & "\venere.jpg")
End If
End Sub
Private Sub muirene_Click()
Frmdatiirene.Show
End Sub