Visual Basic dasturlash tili

Form1,
CommonDialog,
Buyruq1,
Buyruq2,
Matn1.
Pastda, ustunning chap tomonida mulk ob'ektlari, o'ng tomonida esa mulk qiymatlari ko'rsatilgan. Birinchidan, ob'ektni tanlang, so'ngra qiymatni o'rnating.
Ob'ekt uchun xususiyat qiymatlarini jadvalga muvofiq o'rnatamiz, biz o'zgartirmagan xususiyat qiymatlari sukut bo'yicha bir xil bo'ladi.

Ob'ekt	Mulk	Qiymat
Shakl1	(Ism) Chegara uslubi sarlavhasi StartUpPosition	frmDialog 1 - Ruxsat etilgan bitta rangli va shrift 2 - markaziy ekran
CommonDialog	(Ism) Bekor qilish Xato	standart to'g'ri
Matn1	(Nomi) Alignment AutoSize Borderstyle Caption	lblExample 2-Center True 1-Fixed Single Sample
Buyruq tugmasi1	(Ism) Taglavha ToolTipText	cmdColor Color Fon rangini tanlang
Buyruq tugmasi2	(Ism) Taglavha ToolTipText	CmdFont Shrift shrift parametrlarini tanlang

Kod. Interfeysni yaratishning oxirgi bosqichi uni boshqarish uchun kod yozishdir. Dasturni tahrirlash shaklning kod oynasi yordamida amalga oshiriladi, uni bir necha usullar bilan ochish mumkin:
1. Ko'rish menyusidagi Kod elementini tanlang (xuddi shu tarzda, shaklni tahrirlashga qaytishingiz mumkin, View menyusidagi Ob'ekt elementi);
2. Loyiha tadqiqotchisida yaratilayotgan forma nomini tanlang va u uchun kontekst menyusida View Code elementini tanlang (xuddi shu tarzda formaga qaytishingiz mumkin - Forma kontekst menyusida View Object elementi):
3. Har qanday harakatlarning ishlashini ta'minlash zarur bo'lgan shaklning tegishli elementini ikki marta bosing. Ushbu hodisani boshqarish usuli cmdWork elementini ikki marta bosish orqali yaratilishi mumkin, shundan so'ng foydalanuvchi ushbu tugmani bosish bilan ishlaydigan protsedura uchun shablon paydo bo'ladi.
Kod muharririni oching va ma'lumotlarni kiriting.
Xususiy Sub cmdColor_Click () dlgStandard On ErrorLTel ErrorLabel .Flags \u003d cdlCCRGBInit + ErrorCCPreventFullOpen .ShowColor lblExample.BackColor \u003d .Color End with ErrorLabel: Ex Sub Sub SubClick Sub) + cdlCFApply .ShowFont lblExample.Font.Bold \u003d .FontBold lblExample.Font.Italic \u003d .FontItalic lblExample.Font.Name \u003d .FontName lblExample.Font.Size \u003d .FontSize lblExontrik.font. .FontUnderline lblExample.ForeColor \u003d .Color End with ErrorLabel: Ex Sub Sub Sub
Loyihani quyidagicha saqlang frm va vbpBu sizga loyihani o'zgartirish yoki qayta ko'rib chiqish uchun istalgan vaqtda qayta ko'rib chiqish imkoniyatini beradi. Endi bajariladigan faylni yaratish qoladi exe boshqacha qilib aytganda, loyihani Visual Basic ishlab chiqish muhitidan tashqarida ishlashi mumkin bo'lgan alohida faylga kompilyatsiya qiling.Loyiha menyusida oxirgi qatorni - Xususiyatlar (Xususiyatlar) ni oching.Ochilgan oynada yorliqda Umumiy loyiha turini ko'rsating - Standart EXE va loyihaning nomi.
Yorliqda Qilsarlavhani ko'rsating va agar xohlasangiz, belgini o'zgartirishingiz mumkin. Tuzish"Mahalliy kodga kompilyatsiya qilish" katagiga belgi qo'ying. Ilovani tezroq ishlashi uchun tez kod uchun optimallashtirishni yoqishingiz mumkin. Qolgan yorliqlar bizga kerak emas. OK ni yoqing va oynani yoping.

Endi kompilyatsiya qilamiz Fayl menyusini oching "Project name.exe" ni bajaringIDE ning turli xil versiyalarida ushbu buyruq farq qilishi mumkin, men buni shunday nomladim, lekin u Make va Do ham bo'lishi mumkin.

Biz ushbu buyruqni yoqamiz va dasturni menyuda bosish orqali tekshirishingiz mumkin Boshlang tugmasi Boshlang.
Bu nom ostida va siz uni kengaytma bilan saqlagan joyda bo'lishi kerak exe
Ushbu dasturni amalda ko'ring
Matn va fon rangini boshqacha qilib qo'ying.

O'zingizning Wave musiqiy pleeringizni yarating.

Dasturda qanday qilib buyruqlarni birinchi dasturda kiritish bilan tanishib chiqqaningizdan so'ng, biz o'z pleerimizni yaratamiz, bu pleer sizning kompyuteringizda saqlanishi va sizning ehtiyojlaringiz uchun o'zgartirilishi mumkin.
Yangi standart EXE loyihasini yarating.
Project menyusidan Projecti Properties ni tanlab loyiha xususiyatlari oynasini oching va MyMultiMedia loyihasiga nom bering.
Loyiha shaklini Formplayer deb nomlang. Formaning sarlavha xususiyatiga Multimedia Player nomini kiriting.
Komponentlar buyrug'i yordamida Project menyusida ochiladigan Componentlar dialog oynasi yordamida Microsoft Multimedia Control 6.0 kutubxonasini loyihaga biriktiring.
Bizga o'ynaladigan fayllarni topish uchun dialog oynasi kerak, shuning uchun ham komponentlar oynasida Microsoft Common Dialog Control 6.0 komponentlar kutubxonasi katagiga belgi qo'ying.
Boshqarish panelidagi MMControl tugmachasini ikki marta bosib Formplayer-ga MMControl boshqaruvini qo'shing va unga MMControlCDPlayer deb nom bering.
Boshqarish panelidagi CommonDialog tugmachasini ikki marta bosish orqali formaga commonDialog boshqaruvini qo'shing va unga cdplayer deb nom bering.
Boshqarish panelidagi CommandButton tugmachasini ikki marta bosish orqali Formplayer-ga CommandButton boshqaruv elementini qo'shing. Ushbu tugmani cbFindFile deb nomlang va sarlavha xususiyatini Find File-ga o'rnating. Formada yaratilgan cbFindFile tugmachasini bosish hodisasida oynanadigan fayllarni qidirish uchun dialog oynasi ochiladi.
WAV fayllari bilan ishlash uchun MMControlCDPlayer boshqaruviga xususiyatlarni berish uchun kod muharririni oching va kodni kiriting. Private Sub Form_Load () MMControlCDPlayer.Notify \u003d False MMControlCDPlayer.Wait \u003d True MMControlCDPlayer.Shareable \u003d False MMControlCDPlayer.DeviceType \u003d "WaveAudio" End Sub Private Sub cbFindFilepenlay_Click () cd MMControl "End Sub Sub Sub Form (Butun son sifatida bekor qilish) MMControlCDPlayer.Command \u003d" Yopish "End Sub
Ilovani menyuda Ishga tushirish tugmachasini bosib ishga tushiring. Faylni topish tugmachasini bosing, qidirish uchun oyna ochiladi va keyin ijro etish uchun Wave musiqa faylini tanlang. Pleyerning boshqaruv tugmalari yordamida tanlangan faylni tinglashingiz mumkin.
Loyihani birinchi dasturdagi kabi saqlang va bajariladigan dastur yarating exe