visual basic kategorisinde VB ile ses ayar programı konusu , 'basit ses ayar programı 'bir kaydırma cubuğu(Slider1)(textpozision=0 yapın) 've bir metin kutusu(Text1) ihtiyaç vardır. Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID ...
| |||||||
| | #1 (permalink) |
| 'basit ses ayar programı 'bir kaydırma cubuğu(Slider1)(textpozision=0 yapın) 've bir metin kutusu(Text1) ihtiyaç vardır. Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer ByVal dwVolume As Long) As IntegerPrivate Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As Integer dwVolume As Long) As IntegerPrivate Sub Command1_Click() Dim a i As LongDim tmp As String a = waveOutGetVolume(0 i)tmp = "&h" & Right(Hex$(i) 4)Text1 = CLng(tmp) End Sub Private Sub Slider1_Scroll() Dim a i As LongDim tmp vol As StringSlider1.Min = 0 Slider1.Max = 100 vol = Slider1.Value * 650 Text1 = Slider1.Value * 650 tmp = Right((Hex$(vol + 65536)) 4)vol = CLng("&H" & tmp & tmp) a = waveOutSetVolume(0 vol)End Sub | |
| | |
![]() |
| Bookmarks |
| Etiketler |
| • ses ayarları • ses ayarlama programı • ses ayarlayıcı • ses ayarı • ses ayar • video ses ayarlama programı • ses ayarlar • ses ayrları • ses ayarlama • video ses ayarları • ses ayarlar1 • ses ayarlanması • ses a • ses ay • ses aya |
| Konu araçları | |
| |
Benzer Konular | ||||
| Konu | Konuyu Başlatan | Forum | Cevap | Son Mesaj |
| AYAR (AYAR nedir? - AYAR hakkında) | ROUTER | abcç | 0 | 04-08-2008 03:50 |
| AYAR ETMEK (AYAR ETMEK nedir? - AYAR ETMEK hakkında) | ROUTER | abcç | 0 | 04-08-2008 03:50 |
| AYAR (AYAR nedir? - AYAR hakkında) | ROUTER | abcç | 0 | 04-08-2008 03:48 |
| AYAR ETMEK (AYAR ETMEK nedir? - AYAR ETMEK hakkında) | ROUTER | abcç | 0 | 04-08-2008 03:48 |
| VB ile ses ayar programı | x_m.e.e | visual basic | 0 | 04-12-2006 11:37 |
Forum saati Türkiye saatine göredir. GMT +2. Şuan saat: 23:56 .
(Türkiye için GMT +2 seçilmelidir.)