|
The problem occurs because you are completely replacing the item in the hashtable. This is not allowed during an enumeration.
If your hashtable contains objects, it is allowed to update properties of those objects. So one solution is to create an object (or type) that contains the string value.
Another solution is to build a new collection, and then discard the old one.
my blog
|
|
|
|
|
Hashtable belongs to readonly dictionary base object. Thu editing the content is not possible.what you can do ir remove the key and add it again with the new value:
hashTab.Remove ptr.Key
then...
hashTab.Add ptr.Key, “something different”
|
|
|
|
|
I'm trying to save a MS Word shape of the type msoDiagram into a separate file and to this end I thought if I could convert the diagram into an image , then I could easily save the image into a file. However I'm unable to figure out a way to convert the diagram into an image - anybody has any idea ?
Smriti
|
|
|
|
|
if you are using MS Office 2003 you can print your document to MS Office Image writer, this will create a YourDocument.mdi file for you after you open it (by double clicking it) you can use the Save as... to save your file as image (YourDocument.tif)
Hope this will help
xiao xiao
|
|
|
|
|
This is my datagrid table:
Entity_id customer phone address
1 name 222
2 name2 333
3 name3 444
button: show entity_id
when you select which row, then that row's entity_id pass to the button, when you click the button, then popup messagebox to tell you what entity_id you select..
is everybody has any idea to do this function?
- Lisa
|
|
|
|
|
Perhaps this is what you are looking for....
Get the current cell's rownumber
and then build string for the messagebox which looks at the appropriate columns on that cell.....
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim strTest As String
Dim iRowNumber As Integer
Try
iRowNumber = DataGrid1.CurrentCell.RowNumber()
strTest = "Selected Identify " & CStr(DataGrid1.Item(iRowNumber, 1))
MessageBox.Show(strTest)
Catch ex As Exception
End Try
End Sub
SkyTribe
|
|
|
|
|
thanks SkyTribe..
But that is not I'm dealing with in my appl. I need the entityID whick is clicked to forward to another form to the next SQL: select * from customer where entity_id = entityID...
Lisa
|
|
|
|
|
Then how about this....
Public Class MainForm
Inherits System.Windows.Forms.Form
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm3 As New Form3
With frm3
.ID = TextBox1.Text
.Show()
End With
End Sub
End Class
and a sub form containing a single label control.
Public Class Form3
Inherits System.Windows.Forms.Form
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strTest As String
strTest = "Item Selected = " & mvarID
Label1.Text = strTest
End Sub
Private mvarID As String
Public Property ID() As String
Get
Return mvarID
End Get
Set(ByVal Value As String)
mvarID = Value
End Set
End Property
End Class
With this the contents of textbox (but it could be any items on the mainform are used to set properties on the sub form (frm3) which are then used in frm3.
In this case there is a single label called label1 on the sub form which is set from the contents of the textbox on mainform.
If you wanted to pass a integer then simply change the property to integer. If you wanted to pass a series of integer for say a SQL select statement then you could construct a where clause sting on the main and pass a single string or pass a collection or data structure of integer values to the sub form to be parsed into a sql string.
|
|
|
|
|
This is my code..
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objConn As String = "Provider=SQLOLEDB;Data Source=server;"
Dim objString As String = "SELECT entity_id, client_number, client_name FROM Companies WHERE status=1"
Dim DA As OleDbDataAdapter
Dim DS As DataSet
Dim conn As New OleDbConnection(objConn)
DA = New OleDbDataAdapter(objString, objConn)
DS = New DataSet
DA.Fill(DS, "Companies")
conn.Close()
DataGrid1.DataSource = DS.Tables("Companies")
'how to get the entity_id when user select client_number row? how to sign the entity = ??
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'messagebox test if pass the right entity_id
MessageBox.Show(entity)
dim form2 as new form2
form2.showdialog()
End Sub
Public Class Form2
Inherits System.Windows.Forms.Form
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim objConn As String = "Provider=SQLOLEDB;Data Source=server;"
Dim objString As String = "SELECT client_number, client_name, contact, phone_number, address, city FROM Companies WHERE status=1 and entity_id = " & entity
Dim DA As OleDbDataAdapter
Dim DS As DataSet
Dim conn As New OleDbConnection(objConn)
DA = New OleDbDataAdapter(objString, objConn)
DS = New DataSet
DA.Fill(DS, "Companies")
conn.Close()
DataGrid1.DataSource = DS.Tables("Companies")
End Sub
Lisa
|
|
|
|
|
With Option Strict On...How do I get a date from a textbox to a variable defined as date?
|
|
|
|
|
myDate = DateTime.Parse(myTextBox.Value)
my blog
|
|
|
|
|
Generaly when the option stict on is set you can convert value's on two way's
1- use the ctype like
Dim MyDate as Date
MyDate = cType(me.textBox1.text, Date)
2- Using the Cast method.
I must check some things how that is working I never needed yet.
I respond on this later.
|
|
|
|
|
Hi everyone
I need help about how can I integrate 2 project. I have one project doing one thing (reports issues) and the other project doing other thing (security managements).
Right now this 2 project running well but independend, I want to modify the second project for calling any project i want. but in don't know how do that..
Please help me on that..
Johnny Lizardo
|
|
|
|
|
jlizardo wrote:
I want to modify the second project for calling any project i want.
This would seem to contradict your requirement of integrating the two projects into one. Since you have the Security functionality encapsulated into a single a project, you would normally keep it that way. If you wanted to use it in a seperate SOLUTION, not a project, you would simply add a project reference to the Security project.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi there,
Who can help me on this one.
I have a table with some columns. One of these columns contains richtext text.
I want to show this table on something like a data grid or flex grid.
I get the data but the The richt text column shows only the raw data.
I now I must reconfiger the data column but how ?
any idea 
|
|
|
|
|
'One way to add a RichtextBox to a DataGrid Column
'just in case you wanna try it.
Public WithEvents cRtb As New RichTextBox
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cellBounds As New System.Drawing.Rectangle 'cell bounds
'
' Setup your DataGrid Code Here First!!!
' If your datagrid has no columns this method won't work.
'
' Then add the Richtextbox to column 2
'
cellBounds = DataGrid1.GetCellBounds(DataGrid1.CurrentRowIndex, 2)
cRtb.Location = New Point(cellBounds.X, cellBounds.Y)
cRtb.Size = New Size(cellBounds.Width, cellBounds.Height)
cRtb.BorderStyle = BorderStyle.None
cRtb.Text = "Here is the RTB"
DataGrid1.Controls.Add(cRtb)
cRtb.BringToFront()
cRtb.Show()
End sub
' to make sure it follows the scrollbars around
Private Sub DataGrid1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Scroll
Dim cellBounds As New System.Drawing.Rectangle 'cell bounds
cellBounds = DataGrid1.GetCellBounds(DataGrid1.CurrentRowIndex, 2)
cRtb.Location = New Point(cellBounds.X, cellBounds.Y)
cRtb.Size = New Size(cellBounds.Width, cellBounds.Height)
End Sub
|
|
|
|
|
Nice 
But I get the Richtext box on only one cell at the time (the current selected row).
I placed the code from the Load event to the DataGrid_DataSourceChange event and looped the code
for every row in the grid.
Private Sub HistoryGrid_DataSourceChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HistoryGrid.DataSourceChanged
Dim cellBounds As System.Drawing.Rectangle
Dim I As Integer = 0
Do
cellBounds = New System.Drawing.Rectangle() 'cell bounds
cellBounds = Me.HistoryGrid.GetCellBounds(I, 9)
cRtb.Location = New Point(cellBounds.X, cellBounds.Y)
cRtb.Size = New Size(cellBounds.Width, cellBounds.Height)
cRtb.BorderStyle = BorderStyle.None
If Not IsDBNull(Me.HistoryGrid.Item(I, 9)) Then
cRtb.Rtf = CType(Me.HistoryGrid.Item(I, 9), String)
end If
Me.HistoryGrid.Controls.Add(cRtb)
cRtb.BringToFront()
cRtb.Show()
Loop Until I = Me.HistoryGrid.VisibleRowCount
End Sub
How can I display the richtext box on every cell in the column 9
any idea here
Thanks.
|
|
|
|
|
RDoes,
I'm not sure you would want to do that,
If you had 100 rows that would create 100
RTB's and that would be a bad thing all around.
Let me think on it for awhile, maybe I can find a different way.
ProgLoad
|
|
|
|
|
Progload,
Yes you right.
Maybe something with a component class. I have seen some examples with a button or picture but I
Doesn't understand how it works (I mean the concept of it)
But if that is using also a lot of resources I can beter create a form with some like a master detail
structure ?
rdoes
|
|
|
|
|
I think the master detail would be the best way to go for now, but I also have an idea about just building a class to parse the rtf before you put the text in the datagrid, I'll kick it around this weekend.
Will the text in the datagrid be modified by the user?
progload
|
|
|
|
|
No the grid is only used as read only.
But I think it while be usefull in the future.
|
|
|
|
|
Sorry about all the email RDoes,
I Had a slight mistake in the last one it's not RichText.text it needs to be RichText.Rtf
Here's the working one:
Private WithEvents RichText As New Windows.Forms.RichTextBox
Public Function FromRTF(ByVal rtfText As String) As String
RichText.Rtf = rtfText
Return Replace(RichText.Text, Chr(10), vbCrLf)
End Function
txtString = FromRTF(rtfString)
Me.HistoryGrid.Item(I, 9), txtString)
progload
|
|
|
|
|
No problem at all Progload,
If I understand the code correctly. It converts the data
from richtext to plain text.
So I keep the line feeds and tabs but I lose the richtext formatters
like bullet, bold, underline and text sizes etc etc.
Hmm I think I keeped as Master detail where I hide the richtext column.
rdoes
|
|
|
|
|
RDoes,
I think the Master Detail is a good solution.
I Kinda, ran out of ideas so you could re-post your question again and see if anyone else has any better ideas.
Thanks for the correspondence, It was fun trying to find a solution for that.
Stay in touch,
Progload
|
|
|
|
|
Currently I have 6 input files (tab delineated text files). I would like to create a new workbook in the current directory and add the 6 text files to this as separate workbooks. Then if possible freeze the top 2 and leftmost column.
Additionally if possible I would like to run a program (using VB from a button) and then move all of the output files (above) into a workbook... is this possible.
Thanks
"They cannot stop us, We are on a mission from God"- Blues Brothers
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
