Visual Basic

public Form1()
{
    InitializeComponent();

    foreach (Control ctl in this.Controls)
        if (ctl is Label)
        {
            // This hides the labels during runtime
            Label lbl = (Label)ctl;
            lbl.Visible = false;
        }
}

private void pictureBox1_Paint(object sender, PaintEventArgs e)
{
    foreach (Control ctl in this.Controls)
        if (ctl is Label)
        {
            // This lets the PictureBox draw the contents of the labels
            // on it's own canvas, as opposed to directly showing them.
            Label lbl = (Label)ctl;
            e.Graphics.DrawString(
                 lbl.Text,
                 lbl.Font,
                 new SolidBrush(lbl.ForeColor),
                 lbl.Left - pictureBox1.Left,
                 lbl.Top - pictureBox1.Top);
        }
}

eg_Anubhava wrote:

So Please give me another idea.

eg_Anubhava wrote:

but my requirement is changing and Draging of Picturebox.

Private bool bChecking
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
if bCheckeing then return
bchecking = true
If Status.Text = "Not Connected" Then
MsgBox("Interface is not pluged in", MsgBoxStyle.OkOnly + vbCritical, "Error")
CheckBox1.Checked = False
bchecking = false
Else
'The Code to Run My Program '
End If
End Sub

If CheckBox1.Checked Then
                NumericUpDown1.Value = CType(CTemp.Text, Integer) + 1
                NumericUpDown2.Value = CType(CTemp.Text, Integer) - 1

Else
                NumericUpDown1.Value = 0.0
                NumericUpDown2.Value = 0.0
                phidgetIFK.outputs(0) = False
                phidgetIFK.outputs(1) = False
            End If

Private Sub CheckBox1_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If bChecking Then Return
        bChecking = True
        If Status.Text = "Not Connected" Then
            MsgBox("interface is not connected. Connect USB cable and try agine.", MsgBoxStyle.OkOnly + vbCritical, "Error")
            CheckBox1.Checked = False
            bChecking = False
        Else
            If CheckBox1.Checked Then
                NumericUpDown1.Value = CType(CTemp.Text, Integer) + 1
                NumericUpDown2.Value = CType(CTemp.Text, Integer) - 1
            Else
                NumericUpDown1.Value = 0.0
                NumericUpDown2.Value = 0.0
                phidgetIFK.outputs(0) = False
                phidgetIFK.outputs(1) = False
            End If
        End If
    End Sub

tolmega01 wrote:

Please I need fast response house

waner michaud wrote:

please give me a code sample to do this.

waner michaud wrote:

parse it back to the textbox

Imports System.Runtime.InteropServices<br />
Imports System.Text<br />
Public Class Admin<br />
<br />
    <DllImport("kernel32.dll", CharSet:=CharSet.Auto)> Public Shared Function GetShortPathName(ByVal lpszLongPath As String, ByVal lpszShortPath As StringBuilder, ByVal cchBuffer As UInt32) As UInt32<br />
    End Function<br />
<br />
Friend Sub DeKomp()<br />
        Dim buffer As New StringBuilder(256)<br />
        GetShortPathName(Path.GetDirectoryName("C:\Program\MySQL\MySQL Server 5.1\bin\mysql.exe"), buffer, buffer.Capacity)<br />
        Dim shortfilename As String = buffer.ToString<br />
        Dim batchfile As String = "c:\XBatch.bat"<br />
        Dim sw As New StreamWriter("c:\XBatch.bat")<br />
        sw.WriteLine("cd " + shortfilename)<br />
        sw.WriteLine("mysql -uroot -pXXXX testbDB< C:/VB9/MyBkUps/Data/dump.sql")<br />
        sw.Flush()<br />
        sw.Close()<br />
        Environment.CurrentDirectory = "c:\windows\"<br />
        Process.Start(batchfile)<br />
    End Sub<br />
End Class

eg_Anubhava wrote:

I am Coping data from System Drive and i m tring to Paste in Removeable media.

So i want to get the Source path of file which is paste in Removable media.