Login with username, password and session length
0 Members and 1 Guest are viewing this topic.
Imports System.Data.SQLiteImports System.IOPublic Class Form1 Inherits System.Windows.Forms.FormPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load comboboxLoad() End SubPrivate Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged DictLoad() End SubPrivate Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged EntryLoad() If ListBox1.TopIndex <> ListBox1.SelectedIndex Then ' Make the currently selected item the top item in the ListBox. ListBox1.TopIndex = ListBox1.SelectedIndex End If WebBrowser1.DocumentText = "& txtMeanings.Text & " End Sub Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged Dim curItem As String = txtSearch.Text.ToString() ' Find the string in ListBox2. Dim index As Integer = ListBox1.FindString(curItem) ' If the item was not found in ListBox 2 display a message box, otherwise select it in ListBox2. If index = -1 Then MessageBox.Show("Vocabulary not available!") Else ListBox1.SetSelected(index, True) End If End SubPrivate Sub comboboxLoad() Dim sqlcon As New SQLiteConnection("Data Source=" & Application.StartupPath & "\Data\DUBD.db;") Dim str As String sqlcon.Open() ListBox1.Items.Clear() str = "select DictLists from Dictionary " Dim sqlcom As New SQLiteCommand(str, sqlcon) Dim dr As SQLiteDataReader dr = sqlcom.ExecuteReader() While dr.Read() ComboBox1.Items.Add(dr("DictLists")) End While End SubPrivate Sub DictLoad() Dim sqlcon As New SQLiteConnection("Data Source=" & Application.StartupPath & "\Data\DUBD.db;") Dim str As String sqlcon.Open() txtEntry.Text = "" txtMeanings.Text = "" ListBox1.Items.Clear() str = "select * from Entry where DictLists ='" & (ComboBox1.SelectedItem) & "' " Dim sqlcom As New SQLiteCommand(str, sqlcon) Dim dr As SQLiteDataReader dr = sqlcom.ExecuteReader() While dr.Read() ListBox1.Items.Add(dr("EntryLists")) End While End Sub Private Sub EntryLoad() Dim sqlcon As New SQLiteConnection("Data Source=" & Application.StartupPath & "\Data\DUBD.db;") Dim str As String sqlcon.Open() txtEntry.Text = "" txtMeanings.Text = "" txtSources.Text = "" Label3.Text = "" str = "select * from Entry where EntryLists ='" & (ListBox1.SelectedItem) & "'" Dim sqlcom As New SQLiteCommand(str, sqlcon) Dim dr As SQLiteDataReader dr = sqlcom.ExecuteReader() While dr.Read() Label3.Text = dr("EntryLists") txtMeanings.Text = dr("Meanings") txtSources.Text = dr("Sources") End While End Sub End Class
mending proyeknya di-outsource-kan aja, Sam, ke DC, pasti beres, harga negotiable
ato dibikin versi webnya jg. data di supply aja
maksudnya dari sdr Indra itu, diperbantukan oleh teman2x di DC pengerjaannya. bukan utk dikomersilkan