cbFilterValue.Visible = FalselblFilter.Visible = FalsecbFilterValue.Visible = FalselblFilter.Visible = FalsePrivate Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
me.combobox1.AddRange(New Sting()({"a","b","c"})
End sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object,ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
if me.combobox1.selectedindex = 0 Then
me.combobox2.AddRange(New Sting()({"1","2","3"})
Else me.combobox2.Clear
exit sub
end if
if me.combobox1.selectedindex = 1 Then
me.combobox2.AddRange(New Sting()({"4","5","6"})
Else me.combobox2.Clear
exit sub
end if
if me.combobox1.selectedindex = 2 Then
me.combobox2.AddRange(New Sting()({"7","8","9"})
Else me.combobox2.Clear
exit sub
end ifDim fs As New IO.FileStream("h:\Bur\2.txt", FileMode.Open, FileAccess.ReadWrite)
fs.Position = &H350
fs.WriteByte(&HFF)
fs.WriteByte(&HFF)
fs.WriteByte(&HFF)
fs.WriteByte(&H3F)
fs.WriteByte(&H0)
fs.WriteByte(&H1)
fs.WriteByte(&H0)
fs.WriteByte(&H0)
fs.Close()
fs.Dispose()'Changed the function return to boolean
' to indicate success or failure.
'Could probably be a Sub since we indicate
' failure with the MsgBox
Public Function SaveLoadListbox(L As ListBox, Contents As String) As Boolean
Dim LSPath As String
Dim Txt As String
Dim i As Long
Dim fh As Long
'***note here, App.Path is the folder where
'your project is saved. If not saved it will
'be the path from which VB was launched. So if
'you launch VB from the start menu it will be
'the VB6.exe path. If you launch VB from a
'shortcut, it will be the 'StartIn' Path.
LSPath = App.Path & "\mytext.txt"
fh = FreeFile 'get an open file handle
On Error GoTo LSErr 'most common failure would
'be the file doesn't exist
Select Case Contents
Case "Load"
Open LSPath For Input As fh
Do While Not EOF(fh)
Line Input #fh, Txt 'get the text line at a time
If Len(Txt) Then ' & add to the ListBox
L.AddItem Txt
End If
Loop
Case "Save"
Open LSPath For Output As fh
For i = 0 To L.ListCount - 1 'save each line
Print #fh, L.List(i) ' of the ListBox
Next
End Select
Close fh
SaveLoadListbox = True 'success
Exit Function
LSErr:
MsgBox "Err: " & Err.Number & " " & Err.Description
End Function
Private Sub Form_Load()
Debug.Print SaveLoadListbox(List1, "Load")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Debug.Print SaveLoadListbox(List1, "Save")
End SuboFormatCondition1 = CType(xlRange.FormatConditions.Add(Type:=Excel.XlFormatConditionType.xlCellValue, Operator:=Excel.XlFormatConditionOperator.xlNotEqual, Formula1:="=RC[-1]"), Excel.FormatCondition)'Changed the function return to boolean
' to indicate success or failure.
'Could probably be a Sub since we indicate
' failure with the MsgBox
Public Function SaveLoadListbox(L As ListBox, Contents As String) As Boolean
Dim LSPath As String
Dim Txt As String
Dim i As Long
Dim fh As Long
'***note here, App.Path is the folder where
'your project is saved. If not saved it will
'be the path from which VB was launched. So if
'you launch VB from the start menu it will be
'the VB6.exe path. If you launch VB from a
'shortcut, it will be the 'StartIn' Path.
LSPath = App.Path & "\mytext.txt"
fh = FreeFile 'get an open file handle
On Error GoTo LSErr 'most common failure would
'be the file doesn't exist
Select Case Contents
Case "Load"
Open LSPath For Input As fh
Do While Not EOF(fh)
Line Input #fh, Txt 'get the text line at a time
If Len(Txt) Then ' & add to the ListBox
L.AddItem Txt
End If
Loop
Case "Save"
Open LSPath For Output As fh
For i = 0 To L.ListCount - 1 'save each line
Print #fh, L.List(i) ' of the ListBox
Next
End Select
Close fh
SaveLoadListbox = True 'success
Exit Function
LSErr:
MsgBox "Err: " & Err.Number & " " & Err.Description
End Function
Private Sub Form_Load()
Debug.Print SaveLoadListbox(List1, "Load")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Debug.Print SaveLoadListbox(List1, "Save")
End Sub Private Sub ListView1_ItemChecked(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
Try
For i As Integer = 0 To ListView1.Items.Count - 1
ListView1.Items(i).SubItems(1).Text = CStr(Me.ListView1.Items(i).Checked)
Next
Catch ex As Exception
'err
End Try
End Sub For Each row As DataGridViewRow In RestHours2DataGridView.Rows
Dim conn1 As New SqlConnection
conn1.ConnectionString = "Data Source=localhost\xxxxxxxxx;Initial Catalog=RestHours;Integrated Security=True"
conn1.Open()
Dim cmd1 As New SqlCommand("INSERT INTO RestHours2 (Day) VALUES(@Day)", conn1)
cmd1.Parameters.AddWithValue("@Day", row.Cells(0).Value)
cmd1.ExecuteNonQuery()
conn1.Close()
Next If e.RowIndex >= 0 Then
Me.RestHours2DataGridView.Rows(e.RowIndex).Cells(0).Value = e.RowIndex + 1
End IfIf TextBox3.Text = "" Then
TextBox3.Text = Trim(TextBox2.Text)
ElseIf TextBox3.Text <> "" Then
TextBox3.Text = TextBox3.Text & " " & Trim(TextBox2.Text)
End IfFor b As Integer = 0 To FrontCompared.Count
If AlphaNumeric(AlphaDeterminer(FrontCompared(b)), AlphaDeterminer(NextCompared(b))) = 0 Then
ElseIf AlphaNumeric(AlphaDeterminer(FrontCompared(b)), AlphaDeterminer(NextCompared(b))) = -1 Then
Exit For
ElseIf AlphaNumeric(AlphaDeterminer(FrontCompared(b)), AlphaDeterminer(NextCompared(b))) = 1 Then
Else
Alist.RemoveAt(FcomPosition)
Alist.Insert(a + 1, NewWord)
End If
Exit For
Next