VBNet - все что Вы хотели знать о VB, но не знали где найти!

Visual Basic, .NET, ASP, VBA, VBScript

	Открыть/закрыть CD-ROM
	Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Private Sub Command1_Click() Call mciSendString("CD-ROM открыт", 0&, 0&, 0&) End Sub Private Sub Command2_Click() Call mciSendString("CD-ROM закрыт", 0&, 0&, 0&) End Sub

VBNet online (всего: 52050)

Лучшие материалы

ActiveX контролы (112)

Примеры кода (546)

Статьи по VB (136)