|
-расм. Дастурнинг форма кыриниши
|
| bet | 21/21 | | Sana | 03.12.2023 | | Hajmi | 4,07 Mb. | | #110428 |
Bog'liq Vizual maruza22-расм. Дастурнинг форма кыриниши
7. Кодлар ойнасини очамиз ва =уйидаги кодларни киритамиз:
Private Sub Form_Load()
MMControlCDPlayer.Notify = False
MMControlCDPlayer.Wait = True
MMControlCDPlayer.Shareable = False
MMControlCDPlayer.DeviceType = "WaveAudio"
End Sub
Private Sub cdFindFile_Click()
cdPlayer.ShowOpen
MMControlCDPlayer.FileName = cdPlayer.FileName
MMControlCDPlayer.Command = "open"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControlCDPlayer.Command = "Close"
End Sub
Дастурни ишга туширамиз. Файлни топиш тугмасини босиб, керак файлни танлаймиз. Танланган файлни ижро эттириш MMControlCDPlayer элементи ёрдамида амалга оширилади. 24-расмда дастур ишчи холатдалиги акс эттирилган.
24-расм. Дастурнинг ишчи холати
шунингдек, видеофайллар ижрочиси хам шунга ыхшаш яратилади. Фа=ат =урилма типининг бош=а бири танланиши лозим. Яъни, ю=оридаги кодга =уйидагича ызгартириш киритамиз:
Private Sub Form_Load()
MMControlCDPlayer.Notify = False
MMControlCDPlayer.Wait = True
MMControlCDPlayer.Shareable = False
MMControlCDPlayer.DeviceType = "AVIVideo"
End Sub
Private Sub cdFindFile_Click()
cdPlayer.ShowOpen
MMControlCDPlayer.FileName = cdPlayer.FileName
MMControlCDPlayer.Command = "open"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControlCDPlayer.Command = "Close"
End Sub
Ушбу дастур ёрдамида AVI форматидаги видеофайлларни ижро эттириш мумкин. Бундай холатда тасвир кыриш ойнасида хосил былади. Албатта, тасвирни кыриш ойнасида чи=иши но=улайликларни юзага келтиради. Тасвирни форманинг белгиланган сохасида хам хосил =лиши мумкин. бунинг учун =уйидаги кетма-кетликларни амалга ошириш керак:
1. Формага Picture бош=арув элементини ырнатамиз ва унинг номини picView деб ызгартирамиз.
2. Ю=оридаги кодни =уйидагича ызгартирамиз:
Private Sub Form_Load()
MMControlCDPlayer.Notify = False
MMControlCDPlayer.Wait = True
MMControlCDPlayer.Shareable = False
MMControlCDPlayer.DeviceType = "WaveAudio"
MMControlCDPlayer.DeviceType = "AVIVideo"
End Sub
Private Sub cdFindFile_Click()
cdPlayer.ShowOpen
MMControlCDPlayer.FileName = cdPlayer.FileName
MMControlCDPlayer.Command = "open"
‘ Тасвир чи=увчи ойнани белгилаш
MMControlCDPlayer.hWndDisplay=picView.hwnd
FormPlayer.picView.SetFocus
End Sub
Private Sub Form_Unload(Cancel As Integer)
MMControlCDPlayer.Command = "Close"
End Sub
Дастурнинг ишчи холатидаги формасининг кыриниши 25-расмда кырсатилган.
25-расм. Дастур формасининг ишчи холатидаги кыриниши
15-маъруза: Яратилган дастур учун ёрдамчи (Help) тизимини яратиш.
|
| |
