|
-расм. Дастурнинг форма кўриниши
|
bet | 21/21 | Sana | 06.10.2023 | Hajmi | 4.08 Mb. | | #86853 |
Bog'liq Vizual dasturlash AnufrienkoComb, 6-mustaqil ish, 13-mustaqil ish, 1-mustaqil ish, Kompyuterni tashkil etish, Reja Super kompyuterlar haqida tushuncha, Документ Microsoft Word, “Ilk qadam” davlat o‘quv dasturi-fayllar.org, 647137, tt, O‘zbekistonda psixologiya fanining rivojlanishi va hozirgi holati, Safarali Tarix fanidan slayd., 318. G‘ov — bu yo‘l, 6.Требование (приложение устава)22-расм. Дастурнинг форма кўриниши
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-расм. Дастур формасининг ишчи холатидаги кўриниши
|
| |