Visual Basic

yorickthefirst wrote:

First problem - in debug mode hovering the curser over a varable name in older versions gave the VALUE of the varable, in my setup I get a definition of the varable which is of no interest to me - how do I change the setup to get actual runtime values?

yorickthefirst wrote:

Second - There is no Draw toolbox - I have all the controls etc but I cant draw a line or a circle etc on a form - where is this hiding (its not in the available tools from the add dropdown).

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer<br />
    Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Integer<br />
<br />
    Private Const DRIVE_CDROM As Short = 5<br />
    Const ASC_A As Short = 65<br />
    Const ASC_Z As Integer = ASC_A + 25<br />
<br />
    ' Return the CD-ROM drive letters.<br />
    Private Function SearchCDDrives() As String<br />
        Dim i As Short<br />
<br />
        For i = ASC_A To ASC_Z<br />
            If GetDriveType(Chr(i) & ":\") = DRIVE_CDROM Then<br />
                SearchCDDrives = SearchCDDrives & " " & Chr(i)<br />
            End If<br />
        Next i<br />
    End Function<br />
<br />
    Private Sub btnClose_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles btnClose.Click<br />
        'Close CD Door<br />
        mciSendString("Set CDAudio Door Closed Wait", CStr(0), 0, 0)<br />
    End Sub<br />
<br />
    Private Sub btnOpen_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles btnOpen.Click<br />
        'Open CD Door<br />
        mciSendString("Set CDAudio Door Open Wait", CStr(0), 0, 0)<br />
    End Sub<br />
<br />
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        lblCDDrives.Text = "CD drives are: "<br />
        lblCDDrives.Text = lblCDDrives.Text & SearchCDDrives()<br />
    End Sub