Click here to Skip to main content
15,895,011 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: Cant move with mouse text box ,label etc in my vb form Pin
dan!sh 19-Aug-09 20:19
professional dan!sh 19-Aug-09 20:19 
AnswerRe: [Message Deleted] Pin
Luc Pattyn19-Aug-09 23:04
sitebuilderLuc Pattyn19-Aug-09 23:04 
QuestionHow to check Component(ocx) is already registerd or not? VB6 Pin
Kumaran21cen19-Aug-09 18:50
Kumaran21cen19-Aug-09 18:50 
AnswerRe: How to check Component(ocx) is already registerd or not? VB6 Pin
C#Coudou19-Aug-09 20:07
C#Coudou19-Aug-09 20:07 
QuestionDatagridviewcomboboxcolumn in visual basic Pin
C#Coudou19-Aug-09 18:43
C#Coudou19-Aug-09 18:43 
AnswerRe: Datagridviewcomboboxcolumn in visual basic Pin
Suresh Suthar19-Aug-09 20:31
professionalSuresh Suthar19-Aug-09 20:31 
AnswerRe: Datagridviewcomboboxcolumn in visual basic Pin
dan!sh 19-Aug-09 20:34
professional dan!sh 19-Aug-09 20:34 
Questionmigration of vb6 to vb.net Pin
jefry2519-Aug-09 18:20
jefry2519-Aug-09 18:20 
i was assigned an to do completely migration from vb6 to vb.net. can somebody guide me?please, any little help would be benefitial for me.

' this code is for deleting the selected file that is manually type in textbox

<br />
 Dim backupFile As String<br />
   <br />
    On Error Resume Next<br />
    backupFile = "C:\" & txtMotherLot.Text & "\TestTxn.txt"<br />
           <br />
    Call DeleteTableRecord(backupFile, sqlDeleteTestTxn, sqlSelectTestTxn, Adodc_TestTxn, "FWCATNS_TESTTXN")<br />
    btnExportData_TestTxn.Enabled = False<br />
    btnBackupDataTestTxn.Enabled = False<br />
    btnDeleteTesttxn.Enabled = False<br />
     Me.SetFocus<br />


'this is for perform backup on file
<br />
Private Sub btnBackupDataTestTxn_Click() 'ok<br />
  Dim r As Integer<br />
  Dim backupFile As String<br />
  Dim backupFolder As String<br />
<br />
   Dim s As Integer<br />
   Dim FileName As String<br />
   Dim continue As Boolean<br />
     continue = True<br />
     On Error GoTo ErrMesej<br />
           backupFile = "C:\" & txtMotherLot.Text & "\TestTxn.txt"<br />
           <br />
           If ValidateID(txtMotherLot.Text) Then<br />
             backupFolder = "C:\" & txtMotherLot.Text & "\"<br />
             If fso.FolderExists(backupFolder) Then<br />
       <br />
                If fso.FileExists(backupFile) Then<br />
                    r = MsgBox("TestTxn.txt backup file exists!Continue to replace it?", vbOK, "TestTxn.txt File Checking")<br />
                    Select Case r<br />
                      Case vbOK<br />
                        Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
                      Case vbCancel<br />
                        'Exit Sub<br />
                            s = MsgBox("Do you want to save file with another name other than default name(TestTxn.txt)?", vbOK, "TestTxn.txt File Checking")<br />
                            Select Case s<br />
                              Case vbOK<br />
                                 While continue<br />
                                   FileName = InputBox("Please key in new file name other than existing file name ", "Save as new file name")<br />
                                   backupFile = "C:\" & txtMotherLot.Text & "\" & FileName & ".txt"<br />
                                   If fso.FileExists(backupFile) Then<br />
                                      MsgBox "FileName " & backupFile & " already exists!!", vbExclamation<br />
                                   Else<br />
                                      continue = False<br />
                                      Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
                                   End If<br />
                                 Wend<br />
                              Case vbCancel<br />
                                Exit Sub<br />
                              End Select<br />
                    End Select<br />
                Else<br />
                  Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
                End If<br />
             <br />
             Else<br />
                fso.CreateFolder (backupFolder)<br />
                Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
             End If<br />
           Else<br />
             MsgBox "Please key in correct MES ID!"<br />
             txtMotherLot.SetFocus<br />
             txtMotherLot.Text = "<Invalid ID>"<br />
           End If<br />
            Me.SetFocus<br />
    Exit Sub<br />
ErrMesej:<br />
    MsgBox Err.Description, vbCritical, "System Message"<br />
<br />
End Sub<br />



'this for exporting data from one location to the specific location
<br />
Private Sub btnExportData_TestTxn_Click() 'ok<br />
     <br />
   Dim r As Integer<br />
   Dim exportFile As String<br />
   Dim exportFolder As String<br />
<br />
   Dim s As Integer<br />
   Dim FileName As String<br />
   Dim continue As Boolean<br />
     continue = True<br />
     On Error GoTo ErrMesej<br />
        exportFile = "C:\" & txtMotherLot.Text & "\TestTxn.xls"<br />
<br />
           <br />
           If ValidateID(txtMotherLot.Text) Then<br />
             exportFolder = "C:\" & txtMotherLot.Text & "\"<br />
             If fso.FolderExists(exportFolder) Then<br />
                If fso.FileExists(exportFile) Then<br />
                    r = MsgBox("TestTxn.xls file exists!Continue to replace it?", vbOK, "TestTxn.xls File Checking")<br />
                    Select Case r<br />
                      Case vbOK<br />
                        Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
                      Case vbCancel<br />
                        'Exit Sub<br />
                            s = MsgBox("Do you want to save file with another name other than default name(TestTxn.xls)?", vbOK, "TestTxn.xls Checking")<br />
                            Select Case s<br />
                              Case vbOK<br />
                                 While continue<br />
                                   FileName = InputBox("Please key in new file name other than existing file name", "Save as new file name")<br />
                                   exportFile = "C:\" & txtMotherLot.Text & "\" & FileName<br />
                                   If fso.FileExists(exportFile) Then<br />
                                      MsgBox "FileName " & exportFile & " already exists!!", vbExclamation<br />
                                   Else<br />
                                      continue = False<br />
                                      Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
                                   End If<br />
                                 Wend<br />
                              Case vbCancel<br />
                                Exit Sub<br />
                            End Select<br />
                    End Select<br />
                Else<br />
                  Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
                End If<br />
             Else<br />
                fso.CreateFolder (exportFolder)<br />
                Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
             End If<br />
           Else<br />
             MsgBox "Please key in correct MES ID!"<br />
             txtMotherLot.SetFocus<br />
             txtMotherLot.Text = "<Invalid ID>"<br />
           End If<br />
            Me.SetFocus<br />
    Exit Sub<br />
ErrMesej:<br />
    MsgBox Err.Description, vbCritical, "System Message"<br />
<br />
End Sub<br />


pliz, i'm new to vb6.
AnswerRe: migration of vb6 to vb.net Pin
Christian Graus19-Aug-09 18:27
protectorChristian Graus19-Aug-09 18:27 
AnswerRe: migration of vb6 to vb.net Pin
Mycroft Holmes19-Aug-09 20:35
professionalMycroft Holmes19-Aug-09 20:35 
Questionneed tutorial online Pin
vblearner0919-Aug-09 17:23
vblearner0919-Aug-09 17:23 
AnswerRe: need tutorial online Pin
Christian Graus19-Aug-09 17:34
protectorChristian Graus19-Aug-09 17:34 
GeneralRe: need tutorial online Pin
vblearner0919-Aug-09 17:39
vblearner0919-Aug-09 17:39 
GeneralRe: need tutorial online Pin
Christian Graus19-Aug-09 18:25
protectorChristian Graus19-Aug-09 18:25 
AnswerRe: need tutorial online [modified] Pin
mustang8619-Aug-09 18:35
mustang8619-Aug-09 18:35 
GeneralRe: need tutorial online Pin
DaveAuld23-Aug-09 4:19
professionalDaveAuld23-Aug-09 4:19 
AnswerRe: need tutorial online [modified] Pin
mustang8619-Aug-09 18:58
mustang8619-Aug-09 18:58 
AnswerRe: need tutorial online Pin
Dave Kreskowiak20-Aug-09 2:10
mveDave Kreskowiak20-Aug-09 2:10 
QuestionHow to get data from multiple MSDE file from vb 2005 Pin
Mekong River19-Aug-09 15:59
Mekong River19-Aug-09 15:59 
AnswerRe: How to get data from multiple MSDE file from vb 2005 Pin
_Damian S_19-Aug-09 16:04
professional_Damian S_19-Aug-09 16:04 
AnswerRe: How to get data from multiple MSDE file from vb 2005 Pin
Dave Kreskowiak19-Aug-09 16:06
mveDave Kreskowiak19-Aug-09 16:06 
Questionusing HTTPS in Visual Basic 6 Pin
Sipder19-Aug-09 3:13
Sipder19-Aug-09 3:13 
QuestionPDFCreator problem Pin
Sipder19-Aug-09 3:08
Sipder19-Aug-09 3:08 
AnswerRe: PDFCreator problem Pin
Dave Kreskowiak19-Aug-09 4:06
mveDave Kreskowiak19-Aug-09 4:06 
QuestionEnableSSL Pin
KreativeKai19-Aug-09 3:02
professionalKreativeKai19-Aug-09 3:02 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.