Private Sub ShowData()
Dim i As Integer
Dim tmpWord As String
Dim tmprelateto As String
Dim itab As Integer
Dim newtab As String
myAdapter.Fill(ds,
"Dictionary")
mytable = ds.Tables(
"Dictionary")
tmprelateto =
""
tmpWord = ""
i = 0
Do
myrow = mytable.Rows.Item(rownumber)
tmpWord = Trim(myrow.Item(
"Word").ToString)
tmprelateto = Trim(myrow.Item(
"relateto").ToString)
If tmprelateto = "" Then
i = i + 1
If i = 2 Then
Exit Do
End If
RichTextBox1.Text = Trim(myrow.Item(
"DefNep").ToString)
RichTextBox2.Text = Trim(myrow.Item(
"DefEng").ToString)
rownumber = rownumber + 1
Else
newtab = Trim(myrow.Item("pref").ToString)
RadTabStrip1.Items.Add(
New TabItem(newtab))
Dim list As New ListBox
Dim rtfbox As New RichTextBox
Dim rtfbox2 As New RichTextBox
For Each ti As TabItem In RadTabStrip1.Items
ti.ContentPanel.Controls.Add(list)
ti.ContentPanel.Controls.Add(rtfbox)
ti.ContentPanel.Controls.Add(rtfbox2)
With list
.Location =
New Point(5, 3)
.Width = 132
.BorderStyle = BorderStyle.None
.Height = 117
If Trim(myrow.Item("Word").ToString) = "" Then
.Items.Add(Trim(myrow.Item("relateto").ToString))
Else
.Items.Add(Trim(myrow.Item(
"Word").ToString))
End If
End With
With rtfbox
.Location =
New Point(141, 3)
.Width = 133
.Height = 117
.BorderStyle = BorderStyle.None
.Text = Trim(myrow.Item(
"DefNep").ToString)
End With
With rtfbox2
.Location =
New Point(278, 3)
.Width = 132
.Height = 117
.BorderStyle = BorderStyle.None
.Text = Trim(myrow.Item(
"DefEng").ToString)
End With
Next
rownumber = rownumber + 1
End If
Loop
End Sub
Database Used above program looks like:
Word relateto pref DefNep DefNep
------- --------- ------ --------- ---------
A Null Null (ए) अंग्रेजी वर्णमालाको पहिलो अक्षर the first letter of the English alphabet
Null A adj. एउटा, कोही, एक कुनै व्यक्ति one, any, some
Null A prep. जब संज्ञामा उपसर्गको जस्तो यो (when used as a prefix before nouns)
Imports
Telerik.WinControls.UI
Public
Class Form1
Inherits ShapedForm
End Class
I have a PanelBar with a GroupElement which further has 5 Togglebuttons as child. I want to highlight the clicked togglebutton and make others Unhighlighted.
I am using togglestate ON/OFF property but its not working, below is my sample code.
Private Sub PanelBarElement1btnToggleButtonChild1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PanelBarElement1btnToggleButtonChild1.Click
PanelBarElement1btnToggleButtonChild1.ToggleState = Enumerations.ToggleState.On
PanelBarElement1btnToggleButtonChild2.ToggleState = Enumerations.ToggleState.Off
PanelBarElement1btnToggleButtonChild3.ToggleState = Enumerations.ToggleState.Off
PanelBarElement1btnToggleButtonChild4.ToggleState = Enumerations.ToggleState.Off
PanelBarElement1btnToggleButtonChild5.ToggleState = Enumerations.ToggleState.Off
End Sub
Many thanks in advance...............
Savan
Hi,
I have a windows Rad Scheduler control on my page. I want to bind this scheduler with the database. I have added some customized fields on the edit appointment dialog. I want to bind all the fields with the database including customized.
I have tried to bind the control using SchedulerBindingDataSource but it is not binding the data with the control. I am not using AppointmentMappingInfo class. Instead of that i have created my own class that contains property like start, end, summary, description with some new customized property.
One more thing i am not using SchedulerDataSet and AppointmentsTableAdapter, instead of that
I am using SQL dataset and adapter. I do not require Resources also.
Could any one provide me the short and easy code. Its very urgent. Please HELP....
Thanks
Praveen
Hi, could you help me with RadGridView
I'm binding it to BindingSource object, selecting couple of columns in Grid's designer,
but when a start my aplication, and i'm setting my bindingSource DataSource property,
it generate lots of columns that I'm not interessted.
I set AutoGenerateHierarchy = false
Thanks in advance,
Nikodem Rafalski