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:19

А вот ещё, забыл, подскожите как сделать, чтобы показывало время каждого трэка? (у меня не получаеться)

03-05-2001, 00:16	#1
Аleksei Guest Posts: 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?
	[Ответить с цитированием]

03-05-2001, 00:19	#2
Аleksei Guest Posts: n/a	А вот ещё, забыл, подскожите как сделать, чтобы показывало время каждого трэка? (у меня не получаеться)
	[Ответить с цитированием]