|
Can you please help me to attach my word document to my VB.Net system that I'm currently creating. I need the code so that I can view a word document wen I click a certain button.
Thanks![Rose | [Rose]](https://www.codeproject.com/script/Forums/Images/rose.gif)
Mba-lee Keswa Doing 3rd year in D.U.T. Using VB.Net language.
|
|
|
|
|
check out microsoft.office.interop.word
needs the microsoft.office reference (com tab)
|
|
|
|
|
hi Mba-Lee,
To view the word document on click of certain button u need following code
firstly, import the library if u have word 2003 then import microsoft word object library 11.0
or if u have word 2000 then import
microsoft word object library 9.0
then type the following code (code is suppose to be having word2003)
<br />
imports word = microsoft.office.interop.word<br />
<br />
dim objApp as new word.application<br />
dim objDoc as new word.document<br />
<br />
objDoc = objApp.Documents.open("//Path of your word file")<br />
objDoc.visible = true <br />
regards,
koolprasad2003
If the message is useful for U then please Rate This message...
Be a good listener...Because Opprtunity knoughts softly...N-Joy
|
|
|
|
|
Hey,thanks for replying you guys , this is the code that I'm using
Dim appWord As New Word.Application
Dim docWord As New Word.Document
docWord = appWord.Document.Open("C:\mydocument.doc")
And to print it:
Dim myProcess As New System.Diagnostics.Process
With myProcess
.StartInfo.FileName = "C:\path\mydocument.doc"
.StartInfo.Verb = "Print"
.Start()
End With
And this is wat I imported
Imports Microsoft.Office.Tools
Imports word = microsoft.office.interop.word
but interop.word gets underlined I think maybe it's the reference I chose which is:Microsoft.Office.tools.common & microsoft.Office.tools.Word
Or maybe there's some software that I need to download? so that I can use .interop? 
Mba-lee Keswa Doing 3rd year in D.U.T. Using VB.Net language.
|
|
|
|
|
hey Lee,
as i say earlier use the reference of "Microsoft Word Object Library 9.0" or "Microsoft Word Object Library 11.0" depending upon word 2000 or word 2003 respectively
regards,
koolprasad2003
If the message is useful for U then please Rate This message...
Be a good listener...Because Opprtunity knoughts softly...N-Joy
|
|
|
|
|
Help me .. Convert code Graphics VB.net windows form to web forms:
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim dc As Graphics = e.Graphics()
If (e.ClipRectangle.Top < 132 And e.ClipRectangle.Left < 82) Then
Dim bluePen As Pen = New Pen(Color.Blue, 3)
dc.DrawRectangle(bluePen, 0, 0, 50, 50)
Dim redPen As Pen = New Pen(Color.Red, 2)
dc.DrawEllipse(redPen, 0, 50, 80, 60)
End If
End Sub
I want to mark on a picture, first i need learning Graphic on VB.net web form
Please help me.
(Sorry, my English language knowledge .. moderately..   )
-- modified at 5:28 Thursday 26th July, 2007
No job no love no money nothing i have....
|
|
|
|
|
Now And Forever wrote: Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
I have no idea what you're expecting. There is no such thing as a Paint event in a Web Form. It's impossible to convert this code, AS IS, to web forms equivilent because there is no equivilent event.
What is it you want to do in a web form??
|
|
|
|
|
hello frnds,
i have a folder/Directory which is already shared and it have same access permission and in that directory i have 4 directory they are also shared... My problem is can i give same access permission to the child folders as root folder
Let me clear some points ,
Can i give same access permission to the child folder as having root folder by using VB/VB.Net
please help....
regards,
koolprasad2003
Be a good listener...Because Opprtunity knoughts softly...N-Joy
|
|
|
|
|
You don't have to share the 4 sub folders of the root share you created. Nor do you have to set any permissions on the subfolders. The Share, by default, will show whoever looks in it the contents of the shared folder AND and subfolders. Permissions on the subfolders will also inherit from the parent folder.
You really need to pick up a book on how Windows Networking works...
|
|
|
|
|
Thankx for reply Dave
Dave Kreskowiak wrote: pick up a book on how Windows Networking works
can u give me a link to the books/Topics on how Windows Networking works ????
regards,
koolprasad2003
Be a good listener...Because Opprtunity knoughts softly...N-Joy
|
|
|
|
|
|
I have a form where I load (dynamicly) a few radiobuttons lets say 10 groups of 3
everything works except for the first group
here's what happens and how I load them:
in a for lus I create, set the property's of the radiobuttons and put them on the form (each group of 3 in a groupbox)
in the first group the second radiobutton has to be true so I put hem on true (= parameter in db)
in the second group I do exactly the same
when I load the form the first radiobutton of the first group is put on true (witch is wrong) but in the second group the second radiobutton is put on true (as it should be)
when I debug I can see that for the first group the checkchanged event is triggerd (twice since 1 radiobutton is put on true and the other on false) but nowere in my code do I change the property once it is set. Also for the second (and folowing) group the event is not triggerd.
Any idee on why this happens
side note: this does not happen in c# (it's a converted prog)
any idee would we very appriciated
|
|
|
|
|
The code is obviously wrong somewhere. The radios don't get their values until runtime, so when your code starts up, the radio's get their initial values, which will fire the checkchanged events.
If the events are not firing for the other radios, it means they don't have their events wired up in your code. Perhaps you're missing some Handling clauses, or you haven't converted the C# event wiring code to VB.NET AddHandler's???
|
|
|
|
|
normally I would agree with you but the code is completly the same
how do I know this:
well beceause the radiobuttons are put on the form using a loop (because there are about 100 of them I didn't want to type in rbt = new radiobutton a 100times (I'm lazy that way  ))
and also at runtime everything works perfectly (when I change a radiobuttons state the checkchanged event is triggerd so that works)
it's just the first group of radiobuttons that creates a problem
apperently there (and only there) checkchanged event is triggerd when creating them
like I said a very strange problem 
|
|
|
|
|
I dobn't have the the time right now, but I'll see if I can duplicate the problem. Post osome of the code that you're using to create the first few groups and I'll see what I find out.
|
|
|
|
|
I'll post it as soon as I'm back at my work (its weekend now so...)
I can't access the code from here
thanks in advance
|
|
|
|
|
<br />
' Add columns to Datatable<br />
dt1.Columns.Add("FieldName", GetType(String))<br />
' Databasename of the field<br />
dt1.Columns.Add("FieldType", GetType(String))<br />
' Datatype of this field in the database<br />
dt1.Columns.Add("lblField", GetType(String))<br />
' Display label on the form<br />
dt1.Columns.Add("rbNot", GetType(Boolean))<br />
' Radiobutton 'Not' checked?<br />
dt1.Columns.Add("rbIn", GetType(Boolean))<br />
' Radiobutton 'In' checked?<br />
dt1.Columns.Add("rbNotin", GetType(Boolean))<br />
' Radiobutton 'Not in' checked?<br />
dt1.Columns.Add("SqlSelect", GetType(String))<br />
' Multiple selection - <br />
dt1.Columns.Add("FlgSearchbtn", GetType(Boolean))<br />
' Multiple selection - Only one of these has to be true! - corresponding control has to become visible when checked<br />
dt1.Columns.Add("FlgSelection", GetType(Boolean))<br />
' Single selection - Only one of these has to be true! - corresponding control has to become visible when checked<br />
dt1.Columns.Add("FlgFromTo", GetType(Boolean))<br />
' From/To selection - Only one of these has to be true! - corresponding control has to become visible when checked<br />
dt1.Columns.Add("txtSelection", GetType(String))<br />
' The data to be searched (multiple + single selection)<br />
dt1.Columns.Add("txtFrom", GetType(String))<br />
' The 'From' data to be searched<br />
dt1.Columns.Add("txtTo", GetType(String))<br />
' The 'To' data to be searched<br />
'dt1.Columns.Add("txtFrom", typeof(Int32));<br />
'dt1.Columns.Add("txtTo", typeof(Int32));<br />
' Add rows to datatable<br />
Dim dr As DataRow<br />
<br />
dr = dt1.NewRow()<br />
dr("FieldName") = "b_zoeknaam"<br />
dr("FieldType") = "string"<br />
dr("lblField") = "Zoeknaam:"<br />
dr("rbNot") = False<br />
dr("rbIn") = True<br />
dr("rbNotin") = False<br />
dr("FlgSearchbtn") = False<br />
dr("FlgSelection") = True<br />
dr("FlgFromTo") = False<br />
dr("txtSelection") = ""<br />
dr("txtFrom") = ""<br />
dr("txtTo") = ""<br />
dt1.Rows.Add(dr)<br />
<br />
<br />
For Each row As DataRow In dt1.Rows<br />
y += 20<br />
<br />
' Create controls<br />
lblField(i) = New Label()<br />
rbNot(i) = New RadioButton()<br />
rbIn(i) = New RadioButton()<br />
rbNotin(i) = New RadioButton()<br />
gb(i) = New GroupBox()<br />
txtFrom(i) = New TextBox()<br />
txtTo(i) = New TextBox()<br />
btnSearch(i) = New Button()<br />
txtValue(i) = New TextBox()<br />
lblSearch(i) = New Label()<br />
<br />
' lblField<br />
lblField(i).Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte((0)))<br />
lblField(i).ForeColor = System.Drawing.Color.FromArgb(CInt(CByte((0))), CInt(CByte((0))), CInt(CByte((0))))<br />
lblField(i).Location = New System.Drawing.Point(x + 10, y + 30)<br />
lblField(i).Name = row("FieldName").ToString()<br />
lblField(i).Size = New System.Drawing.Size(250, 30)<br />
lblField(i).TabIndex = 0<br />
lblField(i).Text = row("lblField").ToString()<br />
lblField(i).TextAlign = System.Drawing.ContentAlignment.MiddleRight<br />
lblField(i).Width = 100<br />
<br />
' GroupBox<br />
gb(i).Location = New System.Drawing.Point(x + 110, y + 32)<br />
gb(i).Name = "gb" + row("FieldName").ToString() + i.ToString()<br />
gb(i).Size = New System.Drawing.Size(55, 25)<br />
gb(i).TabIndex = 0<br />
gb(i).TabStop = False<br />
gb(i).Tag = i<br />
<br />
' Radiobuttons<br />
rbNot(i).Checked = CBool(row("rbNot"))<br />
rbNot(i).Location = New System.Drawing.Point(5, 9)<br />
rbNot(i).Name = "rbNot"<br />
rbNot(i).Size = New System.Drawing.Size(14, 13)<br />
rbNot(i).TabIndex = 1<br />
rbNot(i).TabStop = True<br />
rbNot(i).UseVisualStyleBackColor = True<br />
AddHandler rbNot(i).CheckedChanged, AddressOf rb_CheckedChanged<br />
rbNot(i).Tag = i<br />
<br />
rbIn(i).Checked = CBool(row("rbIn"))<br />
rbIn(i).Location = New System.Drawing.Point(20, 9)<br />
rbIn(i).Name = "rbIn"<br />
rbIn(i).Size = New System.Drawing.Size(14, 13)<br />
rbIn(i).TabIndex = 2<br />
rbIn(i).UseVisualStyleBackColor = True<br />
AddHandler rbIn(i).CheckedChanged, AddressOf rb_CheckedChanged<br />
rbIn(i).Tag = i<br />
<br />
rbNotin(i).Checked = CBool(row("rbNotin"))<br />
rbNotin(i).Location = New System.Drawing.Point(35, 9)<br />
rbNotin(i).Name = "rbNotin"<br />
rbNotin(i).Size = New System.Drawing.Size(14, 13)<br />
rbNotin(i).TabIndex = 3<br />
rbNotin(i).UseVisualStyleBackColor = True<br />
AddHandler rbNotin(i).CheckedChanged, AddressOf rb_CheckedChanged<br />
rbNotin(i).Tag = i<br />
<br />
gb(i).Controls.AddRange(New Control() {rbNot(i), rbIn(i), rbNotin(i)})<br />
<br />
If CBool(row("FlgSearchbtn")) = True Then<br />
' Button<br />
btnSearch(i).Visible = True<br />
btnSearch(i).Cursor = Cursors.Hand<br />
btnSearch(i).Location = New System.Drawing.Point(x + 165, y + 37)<br />
btnSearch(i).Name = "btnSearch"<br />
btnSearch(i).Text = "..."<br />
btnSearch(i).Size = New System.Drawing.Size(33, 20)<br />
btnSearch(i).TabIndex = 10<br />
btnSearch(i).UseVisualStyleBackColor = True<br />
AddHandler btnSearch(i).Click, AddressOf btnSearch_Click<br />
btnSearch(i).Tag = i<br />
<br />
' Label<br />
lblSearch(i).Location = New System.Drawing.Point(x + 200, y + 40)<br />
lblSearch(i).Name = "lblSelection"<br />
lblSearch(i).Size = New System.Drawing.Size(100, 20)<br />
lblSearch(i).TabIndex = 11<br />
lblSearch(i).Text = "Selectie..."<br />
End If<br />
<br />
If CBool(row("FlgSelection")) = True Then<br />
' TxtValue<br />
txtValue(i).Visible = True<br />
txtValue(i).Location = New System.Drawing.Point(x + 200, y + 38)<br />
txtValue(i).MaxLength = 9000<br />
txtValue(i).Size = New System.Drawing.Size(100, 20)<br />
txtValue(i).TabIndex = 20<br />
txtValue(i).Tag = i<br />
End If<br />
<br />
If CBool(row("FlgFromTo")) = True Then<br />
' txtFrom<br />
txtFrom(i).Visible = True<br />
txtFrom(i).Location = New System.Drawing.Point(x + 200, y + 38)<br />
txtFrom(i).MaxLength = 9000<br />
txtFrom(i).Size = New System.Drawing.Size(100, 20)<br />
txtFrom(i).TabIndex = 30<br />
txtFrom(i).Tag = i<br />
<br />
'txtTo<br />
txtTo(i).Visible = True<br />
txtTo(i).Location = New System.Drawing.Point(x + 302, y + 38)<br />
txtTo(i).MaxLength = 9000<br />
txtTo(i).Size = New System.Drawing.Size(100, 20)<br />
txtTo(i).TabIndex = 40<br />
txtTo(i).Tag = i<br />
<br />
maxwidth = 420<br />
End If<br />
<br />
Controls.AddRange(New Control() {lblField(i), btnSearch(i), lblSearch(i), txtValue(i), txtFrom(i), txtTo(i), _<br />
gb(i)})<br />
<br />
' --------------------------------<br />
' Set controls visible when needed<br />
' --------------------------------<br />
rbNot(i).Checked = CBool(row("rbNot"))<br />
rbIn(i).Checked = CBool(row("rbIn"))<br />
rbNotin(i).Checked = CBool(row("rbNotin"))<br />
<br />
If CBool(row("rbNot")) Then<br />
SetControlsVisible(i, False)<br />
Else<br />
SetControlsVisible(i, True)<br />
End If<br />
<br />
i += 1<br />
Next<br />
|
|
|
|
|
I didn't forget about you! I've just been really damn busy both at work and home. From the test app that I've managed to sling together, everything LOOKS ok, but I've don't have the test data to really beat the snot out of it. If you could post the first few records of your table, it would help a lot.
|
|
|
|
|
Dave Kreskowiak wrote: I've just been really damn busy both at work and home
I can tottaly understand that, I sleep about 5 hours a night and the rest of the time I work and still haven't got enough time so...
there isn't a table behind it.
maybe if I explain a bit better what the meaning of it you'll understand better so here I go (trying very hard):
I have a project where the user has to be able to search for records by filters he can set himself.
So I designed a form (frmsearch) that would do that and made that form dynamicly so that I can reuse it everywhere I want (I'm very lasy (don't like to copy paste or do the same thing to much);P)
here is how such a form would look like(described)
(label)name:
inside groupbox 3radiobuttons
(radiobutton) rbnot (= no filter)
(radiobutton) rbin (= record field contains whatever the user set in textbox)
(radiobutton) rbnotin (= record field does not contains whatever the user set in textbox)
and then a few more things for design purposes
this way all I have to do in the form that calls frmsearch is the next:
Dim dt As DataTable = clsSearch.createDataTable
Dim dr As DataRow
dr = dt.NewRow()
dr("FieldName") = "ActiviteitTypeCode"
dr("FieldType") = "string"
dr("lblField") = "Code:"
dr("rbNot") = True
dr("rbIn") = False
dr("rbNotin") = False
dr("FlgSearchbtn") = False
dr("FlgSelection") = True
dr("FlgFromTo") = False
dr("txtSelection") = ""
dr("txtFrom") = ""
dr("txtTo") = ""
dt.Rows.Add(dr)
dr = dt.NewRow()
dr("FieldName") = "ActiviteitTypeOmschrNLD"
dr("FieldType") = "string"
dr("lblField") = "Omschrijving NLD:"
dr("rbNot") = True
dr("rbIn") = False
dr("rbNotin") = False
dr("FlgSearchbtn") = False
dr("FlgSelection") = True
dr("FlgFromTo") = False
dr("txtSelection") = ""
dr("txtFrom") = ""
dr("txtTo") = ""
dt.Rows.Add(dr)
dr = dt.NewRow()
Dim frm As New frmSearch(dt)
frm.ShowDialog()
then frmsearch returns an sql string (where clause) wich I can use to select the correct data and display it on the form
I hope this clears things up a bit
if not I'm willing to send you the project (or part of it) so you test it for you're self but then I'll need an email account since I can't attach anything here
thanks in advance for all you'r help and time
|
|
|
|
|
OK. I just cannot break this thing the way you described. The check list to go through for creating a groupbox with a few radio buttons in it is this:
Create the groupbox
Set Text, Size, Location properties
Add GroupBox to host form's Controls collection
Do While more radios to create
Create RadioButton
Set Text, Location, AutoSize properties
AddHandler CheckChanged event to appropriate CheckChanged handler
(event handler must be in host form's class, NOT another form)
Add RadioButton to host form's Controls collection
Add RadioBUtton to host GroupBox Controls collection
Loop
|
|
|
|
|
so here it is:
frmsearch load: (logic: we iterate true every row in dt and create the controls for that row (based on values in the dt (look at third code block to see an example of dt)))
Private Sub frmBedrijfZoek_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
If dt1.Rows.Count > 0 Then
Dim x As Integer = 10, y As Integer = 0, yInit As Integer = 0, i As Integer = 0, len As Integer = dt1.Rows.Count, maxwidth As Integer = 310
y = 0 '20
yInit = 20
SuspendLayout()
For Each row As DataRow In dt1.Rows
y += 20
' Create controls
lblField(i) = New Label()
rbNot(i) = New RadioButton()
rbIn(i) = New RadioButton()
rbNotin(i) = New RadioButton()
gb(i) = New GroupBox()
txtFrom(i) = New TextBox()
txtTo(i) = New TextBox()
btnSearch(i) = New Button()
txtValue(i) = New TextBox()
lblSearch(i) = New Label()
' lblField
lblField(i).Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CByte((0)))
lblField(i).ForeColor = System.Drawing.Color.FromArgb(CInt(CByte((0))), CInt(CByte((0))), CInt(CByte((0))))
lblField(i).Location = New System.Drawing.Point(x + 10, y + 30)
lblField(i).Name = row("FieldName").ToString()
lblField(i).Size = New System.Drawing.Size(250, 30)
lblField(i).TabIndex = 0
lblField(i).Text = row("lblField").ToString()
lblField(i).TextAlign = System.Drawing.ContentAlignment.MiddleRight
lblField(i).Width = 100
' GroupBox
gb(i).Location = New System.Drawing.Point(x + 110, y + 32)
gb(i).Name = "gb" + row("FieldName").ToString() + i.ToString()
gb(i).Size = New System.Drawing.Size(55, 25)
gb(i).TabIndex = 0
gb(i).TabStop = False
gb(i).Tag = i
' Radiobuttons
rbNot(i).Checked = CBool(row("rbNot"))
rbNot(i).Location = New System.Drawing.Point(5, 9)
rbNot(i).Name = "rbNot"
rbNot(i).Size = New System.Drawing.Size(14, 13)
rbNot(i).TabIndex = 1
rbNot(i).TabStop = True
rbNot(i).UseVisualStyleBackColor = True
rbNot(i).Tag = i
rbIn(i).Checked = CBool(row("rbIn"))
rbIn(i).Location = New System.Drawing.Point(20, 9)
rbIn(i).Name = "rbIn"
rbIn(i).Size = New System.Drawing.Size(14, 13)
rbIn(i).TabIndex = 2
rbIn(i).UseVisualStyleBackColor = True
rbIn(i).Tag = i
rbNotin(i).Checked = CBool(row("rbNotin"))
rbNotin(i).Location = New System.Drawing.Point(35, 9)
rbNotin(i).Name = "rbNotin"
rbNotin(i).Size = New System.Drawing.Size(14, 13)
rbNotin(i).TabIndex = 3
rbNotin(i).UseVisualStyleBackColor = True
rbNotin(i).Tag = i
AddHandler rbNot(i).CheckedChanged, AddressOf rb_CheckedChanged
AddHandler rbIn(i).CheckedChanged, AddressOf rb_CheckedChanged
AddHandler rbNotin(i).CheckedChanged, AddressOf rb_CheckedChanged
gb(i).Controls.AddRange(New Control() {rbNot(i), rbIn(i), rbNotin(i)})
If CBool(row("FlgSearchbtn")) = True Then
' Button
btnSearch(i).Visible = True
btnSearch(i).Cursor = Cursors.Hand
btnSearch(i).Location = New System.Drawing.Point(x + 165, y + 37)
btnSearch(i).Name = "btnSearch"
btnSearch(i).Text = "..."
btnSearch(i).Size = New System.Drawing.Size(33, 20)
btnSearch(i).TabIndex = 10
btnSearch(i).UseVisualStyleBackColor = True
AddHandler btnSearch(i).Click, AddressOf btnSearch_Click
btnSearch(i).Tag = i
' Label
lblSearch(i).Location = New System.Drawing.Point(x + 200, y + 40)
lblSearch(i).Name = "lblSelection"
lblSearch(i).Size = New System.Drawing.Size(100, 20)
lblSearch(i).TabIndex = 11
lblSearch(i).Text = "Selectie..."
End If
If CBool(row("FlgSelection")) = True Then
' TxtValue
txtValue(i).Visible = True
txtValue(i).Location = New System.Drawing.Point(x + 200, y + 38)
txtValue(i).MaxLength = 9000
txtValue(i).Size = New System.Drawing.Size(100, 20)
txtValue(i).TabIndex = 20
txtValue(i).Tag = i
End If
If CBool(row("FlgFromTo")) = True Then
' txtFrom
txtFrom(i).Visible = True
txtFrom(i).Location = New System.Drawing.Point(x + 200, y + 38)
txtFrom(i).MaxLength = 9000
txtFrom(i).Size = New System.Drawing.Size(100, 20)
txtFrom(i).TabIndex = 30
txtFrom(i).Tag = i
'txtTo
txtTo(i).Visible = True
txtTo(i).Location = New System.Drawing.Point(x + 302, y + 38)
txtTo(i).MaxLength = 9000
txtTo(i).Size = New System.Drawing.Size(100, 20)
txtTo(i).TabIndex = 40
txtTo(i).Tag = i
maxwidth = 420
End If
Controls.AddRange(New Control() {lblField(i), btnSearch(i), lblSearch(i), txtValue(i), txtFrom(i), txtTo(i), gb(i)})
If CBool(row("rbNot")) Then
SetControlsVisible(i, False)
Else
SetControlsVisible(i, True)
End If
i += 1
Next
Dim groupbox As New GroupBox()
groupbox.Location = New System.Drawing.Point(x, yInit)
groupbox.Size = New System.Drawing.Size(maxwidth, y + 50)
groupbox.TabIndex = 0
groupbox.TabStop = False
groupbox.Text = "Selectie binnen 'Bedrijf'"
Controls.Add(groupbox)
ResumeLayout(False)
End If
End Sub
the checkchanged methode:
the first if is our 'bad' solution (doesn't even work everytime but its the only thing we'v come up with so far)
Private Sub rb_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)
If counter < 2 Then ' This is a tricky solution for VB.Net (not C#) because this event is triggered in the load of the form
rbNot(0).Checked = CBool(dt1.Rows(0)("rbNot"))
rbIn(0).Checked = CBool(dt1.Rows(0)("rbIn"))
rbNotin(0).Checked = CBool(dt1.Rows(0)("rbNotin"))
counter += 1
Exit Sub
End If
Dim idx As Integer = DirectCast(DirectCast(sender, RadioButton).Tag, Int32)
Dim chk As Boolean = DirectCast(sender, RadioButton).Checked
If DirectCast(sender, RadioButton).Name = "rbNot" Then
chk = Not chk
End If
SetControlsVisible(idx, chk)
End Sub
example of dt: (this will give 2 groupboxes of 3 radiobuttons)
Public Sub MnuSearch() Implements IfrmClient.MnuSearch
Dim dt As DataTable = clsSearch.createDataTable
Dim dr As DataRow
dr = dt.NewRow()
dr("FieldName") = "ActiviteitTypeCode"
dr("FieldType") = "string"
dr("lblField") = "Code:"
dr("rbNot") = False 'bug only happens if this is false
dr("rbIn") = True 'bug only happens if this is true
dr("rbNotin") = False
dr("FlgSearchbtn") = False
dr("FlgSelection") = True
dr("FlgFromTo") = False
dr("txtSelection") = ""
dr("txtFrom") = ""
dr("txtTo") = ""
dt.Rows.Add(dr)
dr = dt.NewRow()
dr("FieldName") = "ActiviteitTypeOmschrNLD"
dr("FieldType") = "string"
dr("lblField") = "Omschrijving NLD:"
dr("rbNot") = True
dr("rbIn") = False
dr("rbNotin") = False
dr("FlgSearchbtn") = False
dr("FlgSelection") = True
dr("FlgFromTo") = False
dr("txtSelection") = ""
dr("txtFrom") = ""
dr("txtTo") = ""
dt.Rows.Add(dr)
Dim frm As New frmSearch(dt)
If frm.ShowDialog = Windows.Forms.DialogResult.OK Then
where = frm.sqlwhere
sql = "select ActiviteitTypeCode,ActiviteitTypeOmschrNLD,ActiviteitTypeOmschrFRA,ActiviteitTypeKleur," & _
"isactief,datum_creatie,user_creatie,datum_wijz,user_wijz from ActiviteitType " & where
loaddata()
End If
hope you understand it better now if not I'm always willing to give more code or explanation
|
|
|
|
|
TDDragon wrote: Dim groupbox As New GroupBox()
groupbox.Location = New System.Drawing.Point(x, yInit)
groupbox.Size = New System.Drawing.Size(maxwidth, y + 50)
groupbox.TabIndex = 0
groupbox.TabStop = False
groupbox.Text = "Selectie binnen 'Bedrijf'"
Controls.Add(groupbox)
So where do you add the radio buttons to the GroupBox?? I don't see it and it was one of my items in the "Checklist" I posted.
|
|
|
|
|
yeah probably should have told you that this groupbox doesn't matter much it's just for lay-out purposes. The groupbox that matters is the gb groupbox that's the one containing the raio buttons and those are added with the following code:
gb(i).Controls.AddRange(New Control() {rbNot(i), rbIn(i), rbNotin(i)})
|
|
|
|
|
Missed that one.
What's with the arrays of controls? [ gb(i) ]
|
|
|
|
|
yeah I'm not quite sure why my college did it like this but I don't think it will make a difference
(I didn't write the code just have to correct it = real fun )
-- modified at 8:32 Friday 17th August, 2007
just asked him, here is his answer:
quote 'Because I can then fit it on to 1 line of code' end quote
o and I just tested it with adding them like this 'gb(i).controls.add(rbnot(i))' and it doesn't make a difference so...
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
