|
-расм. Дастурнинг форма кыриниши
|
bet | 21/21 | Sana | 03.12.2023 | Hajmi | 4.07 Mb. | | #110428 |
Bog'liq Vizual maruza file (23), 1-kurs. Majmua IQTISOD, Chrome бўйича инструкция, 2-амалий, 1,Qishloq xo\'jaligi va sanoat sohasidagi o\'zgarishlar. Reja Qishl, Baslawish klass (2), Mustaqil ish2 MT A, KAMOLIDDIN KOMPYUTERNI TASHKIL ETISH, 596 10.11.2023, O‘zbekiston respublikasi oliy va o‘rta maxsus ta’lim vazirligi t, KICHIK BIZNESNI SOLIQQA TORTISHNING UMUMIY TAVSIFI., 1-Mavzu “Milliy g„oya asosiy tushuncha va tamoyillar” fanining-fayllar.org, TEST22-расм. Дастурнинг форма кыриниши
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) тизимини яратиш.
|
| |