Visual basic 6.0

03-05-2001, 00:16

Вот пишу код:
Dim i As Long, RS As String, cb As Long, s As Single
RS = Space$(128)
i = mciSendString("status sound length", RS, 128, cb)
If Val(RS) Then
s = Val(RS)
i = mciSendString("status sound position", RS, 128, cb)
s = Val(RS) / s
Этот код, для того чтобы, когда проигрываешь CD показывало какой номер трека! Но как сделать так, чтобы номер показывался в LABEL1.CAPTION?

03-05-2001, 00:16	#1
Аleksei Guest Сообщений: n/a	Visual basic 6.0 Вот пишу код: Dim i As Long, RS As String, cb As Long, s As Single RS = Space$(128) i = mciSendString("status sound length", RS, 128, cb) If Val(RS) Then s = Val(RS) i = mciSendString("status sound position", RS, 128, cb) s = Val(RS) / s Этот код, для того чтобы, когда проигрываешь CD показывало какой номер трека! Но как сделать так, чтобы номер показывался в LABEL1.CAPTION?
	[Ответить с цитированием]

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode