Kalispera kai xronia polla!!!
thelw na ftiaksw mia forma i opoia tha deixnei ena gif kai tha paizei kai ena arxeio wav...
exw kataferei na to oloklirwsw auto kai doulevei mia xara!autti tin forma tin kalw apo alles formes paizei to gif, akougetai o ixos kai kleinei...
alla an prospathisw na tin ksanakalesw, mou vgazei to minima " Run-time error '-4 (fffffffc)' "
exei epilogi ok kai help alla patwntas to help den mou deixnei tipota...
epsaksa kai sto google, alla den katafera na vgalw akri...
autos einai o kwdikas tis formas:
Dim frown As String
Private Sub Form_Load()
frown = "about:<html><body scroll='no'><img src='" & App.Path & "\images\54.gif" & "'></img></body></html>"
WebBrowser1.Navigate frown
Timer1.Enabled = True
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path & "\sound\clapping.wav"
MMControl1.Wait = True
MMControl1.Command = "Open"
MMControl1.Wait = False
MMControl1.Command = "Play"
End Sub
Private Sub Timer1_Timer()
MMControl1.Command = "Close"
Unload Me
End Sub
mporei kapoios na me voithisei??euxaristw!