VB ile ses ayar programı
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 ...
| |||||||
04-12-2006, 11:37
| #1 (permalink) |
 VB ile ses ayar programı '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 |
| 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 | 29-11-2006 17:33 |
Forum saati Türkiye saatine göredir. GMT +2. Şuan saat: 23:15 .
(Türkiye için GMT +2 seçilmelidir.)
