|
The problem I'm having is that I'm reading an xml file and have simple nodes with text so I can cast the node value to a string. If I use the <sup> tag I can't cast to a string and I would have to format the text in the combobox.
It seems that utf-8 encoded characters is the simplest method if I can just get the font issue right.
On the next message is a copy of the code I'm using to populate a collection of objects that is used as the datasource for the combobox.
The display member of the combobox can be either the Name or Abbreviation nodes.
An optimist's glass is half full.
A pesimist's glass is half empty.
An engineer goes and gets the right size glass.
-- modified at 8:51 Friday 13th January, 2006
|
|
|
|
|
<br />
Public Sub PopulateFromXML(ByVal fileName As String)<br />
<br />
'Collect the path for the dll<br />
Dim path As String<br />
path = System.Environment.GetFolderPath( _<br />
Environment.SpecialFolder.CommonApplicationData)<br />
<br />
'Read the xml file into a dataset<br />
Dim xmlFile As New System.Data.DataSet<br />
xmlFile.ReadXml(path & _<br />
System.IO.Path.DirectorySeparatorChar & _<br />
"Flowguard Limited " & _<br />
System.IO.Path.DirectorySeparatorChar & _<br />
"Engineering Dimensions" & _<br />
System.IO.Path.DirectorySeparatorChar & _<br />
fileName)<br />
<br />
'Collect the unit type<br />
Dim unitType As String<br />
unitType = Convert.ToString(xmlFile.Tables("DimensionUnits").Rows(0).Item("Type"))<br />
<br />
'Collect the units table<br />
Dim unitsTable As New System.Data.DataTable<br />
unitsTable = xmlFile.Tables("Unit")<br />
<br />
'Loop through each row of the units table, adding a new unit each time<br />
Dim rowEnum As IEnumerator<br />
rowEnum = unitsTable.Rows.GetEnumerator<br />
<br />
While rowEnum.MoveNext<br />
'Cast the enumerated object to a data row<br />
Dim currRow As DataRow<br />
currRow = CType(rowEnum.Current, System.Data.DataRow)<br />
'Create a new unit object<br />
Try<br />
Dim newUnit As New Unit(Convert.ToString(currRow("Name")), _<br />
Convert.ToString(currRow("Abbreviation")), _<br />
Convert.ToDouble(currRow("Factor")), _<br />
Convert.ToBoolean(currRow("IsMetric")), _<br />
Convert.ToBoolean(currRow("IsSIUnit")), _<br />
"Length")<br />
<br />
'Add the unit to the collection<br />
Me.Add(newUnit)<br />
Catch formatEx As System.FormatException<br />
'Provide a message string<br />
Dim origString As String = "There is a problem in the xml file "<br />
Dim msgString As String = ""<br />
<br />
'Identify which value has the problem<br />
If Not (TypeOf (currRow("Name")) Is String) Then<br />
If msgString.Length = 0 Then<br />
msgString = origString & " with the Name Field"<br />
Else<br />
msgString += ", the Name Field"<br />
End If<br />
End If<br />
<br />
If Not (TypeOf (currRow("Abbreviation")) Is String) Then<br />
If msgString.Length = 0 Then<br />
msgString = origString & " with the Abbreviation Field"<br />
Else<br />
msgString += ", the Abbreviation Field"<br />
End If<br />
End If<br />
<br />
If Not (TypeOf (currRow("Factor")) Is Double) Then<br />
If msgString.Length = 0 Then<br />
msgString = origString & " with the Factor Field"<br />
Else<br />
msgString += ", the Factor Field"<br />
End If<br />
End If<br />
<br />
If Not (TypeOf (currRow("IsMetric")) Is Boolean) Then<br />
If msgString.Length = 0 Then<br />
msgString = origString & " with the IsMetric Field"<br />
Else<br />
msgString += ", the IsMetric Field"<br />
End If<br />
End If<br />
<br />
If Not (TypeOf (currRow("IsSIUnit")) Is Boolean) Then<br />
If msgString.Length = 0 Then<br />
msgString = origString & " with the IsSIUnit Field"<br />
Else<br />
msgString += ", the IsSIUnit Field"<br />
End If<br />
End If<br />
<br />
'Inform the user<br />
System.Windows.Forms.MessageBox.Show( _<br />
msgString, "XML File Error!", _<br />
MessageBoxButtons.OK, MessageBoxIcon.Exclamation)<br />
Catch ex As System.Exception<br />
'Throw the exception<br />
Throw ex<br />
End Try<br />
<br />
End While<br />
<br />
'Raise the list changed event<br />
RaiseEvent ListChanged(Me, _<br />
New System.ComponentModel.ListChangedEventArgs( _<br />
System.ComponentModel.ListChangedType.Reset, 0))<br />
<br />
End Sub 'PopulateFromXML<br />
An optimist's glass is half full.
A pesimist's glass is half empty.
An engineer goes and gets the right size glass.
|
|
|
|
|
I don't see the problem with storing the tags in a string. Properly encoded in the xml file, it would look like this, as example:
<node>A value with <sup>superscript</sup> text.</node>
If you can't store the tags in the xml file, can't you replace the unicode character after you have gotten the data:
str = str.Replace("\x1234", "<sup>4</sup>")
---
b { font-weight: normal; }
|
|
|
|
|
The problem is that the text doesn't show in the combobox.
I presume (and I haven't tried it yet) that if I changed the text to "<sup>4</sup>" then this is what would show in the combobox and not the superscript character. The combobox isn't in a web browser its on a windows form.
What I've doen is set the default font to lucida sans unicode and everything is fine, I'm almost sure it is a font issue.
If i'm getting the wrong end of the stick poke me with the right end 
An optimist's glass is half full.
A pesimist's glass is half empty.
An engineer goes and gets the right size glass.
|
|
|
|
|
Hi,
Anyone out there come across a dxf/dwg viewer component(activex) or dll that is free and compliant with the different cad versions, please let me know.
I've been searching till my fingers have been worn to the bone 
|
|
|
|
|
Autodesk used to do a viewer called voloview that was free. Autodesk include VBA in their CAD products so you may be able to use the voloview application as a com object.
Worth a look.
An optimist's glass is half full.
A pesimist's glass is half empty.
An engineer goes and gets the right size glass.
|
|
|
|
|
about 5 years ago i found one. It was free and worked really well for what we wanted. I am sorry but i really cant remember the name of it and i havent worked forthat company for a long time. Not really much help i know but all i can say is there is at least one out there. Keep searching.
Jon
|
|
|
|
|
hi,
I have 2 application. one is opening a port let say 2600 and listening to that port.
my 2nd program will tell me that port 2600 is open or not
what will be the code for that VB.
bye
Paritosh
|
|
|
|
|
You're second app whas to be told which port to use. The only way it can find out is if it scans all the ports (preferrably 1024-65535) and eventually connects to the correct one.
So how do other applications find the port? Easy, there are two of them. A control port that is well-known to the client app and doesn't change, and a data port that handles all data communications. The client would receive the data port number during some negotiation that you implement on the control port.
What an example fo this? FTP does this. Port 21 is the FTP control port, 20 is the default port that data is sent over.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hello, I'm developing a program to send mail, using VS2005, with then System.Net.Mail.SmtpClient and System.Net.Mail.MailMessage objects.
By now, It works properly, but now I have to let the user sign the message with a certificate... and that objects don't support it (the only support certificates to stablish a SSL connnection). The only way could be to use Outlook objects??
I don't have any idea, I think perhaps I could write the message in RFC822 format, and then sign and encript some parts, by I can't believe that I am the only man in the world with this trouble 
Any idea? Thanks in advance
|
|
|
|
|
Finally I will buy the Chilkat component, because it's worthless to use the Outlook objects, and I the other posibilities are more difficult than useful.
I recomend to other developers don't waste time in this, because there aren't alternatives (but buying a good component).
|
|
|
|
|
Hello,
i want to retrieve the actual! column width of the datagrid after the user has modified the width manually in the head of the grid. The dgMaster.TableStyles(0).GridColumnStyles property allways gives the programmed width before the modification.
Thx for help
|
|
|
|
|
Hmmmm...you may want to verify that. For me, the .TableStyles(0).GridColumnStyles property always returns the actual column width. But I'm only using the one Tablestyle. Do you have multiple styles defined? Also, are you referencing this property in response to a certain event being fired? I reference the property immediately after the user resizes a column in the MouseOver event.
Dean
|
|
|
|
|
Hi All,
Can someone tell me if there is a way to insert text at the cursor location in an Outlook mail. I saw the object browser for MailItem but could only find the "Body" property through with there is no way to find out the cursor location.
Thanks and Regards,
Anil
|
|
|
|
|
Dear Sir or Madam,
Now I use a datagrid and I want a column of this datagrid is the combobox.
I use DataGridTableStyle and I add a DataGridComboBoxColumnStyle in the column. The ComboBox has 3 field: DataSource, DisplayMember, ValueMember.
But now I have a problem: after I choose one value from ComboBox, it return ValueMember and display ValueMember on DataGrid. Don't display DisplayMember on the DataGrid.
I want after I choose one value from ComboBox, it will return ValueMember and display DisplayMember on the datagrid.
Thank you very much for any help !
And my code here:
Dim tableStyle As New DataGridTableStyle
With tableStyle
.MappingName = "ArrayList"
''Step 2:Mapping columns for TableStyle
Dim CheckedCol As New DataGridBoolColumn 'NoNullBoolColumn
With CheckedCol
.MappingName = "HasThisSkillItem"
.HeaderText = ""
.Width = 30
.AllowNull = False
End With
tableStyle.GridColumnStyles.Add(CheckedCol)
Dim column As New DataGridTextBoxColumn
With column
.MappingName = "SKILL_ITEM_NAME"
.ReadOnly = True
.HeaderText = "Item Name"
.Width = 200
End With
tableStyle.GridColumnStyles.Add(column)
column = New DataGridTextBoxColumn
With column
.MappingName = "DURING_EXP_YEARS"
.HeaderText = "Exp.Y"
.Width = 40
.NullText = ""
End With
tableStyle.GridColumnStyles.Add(column)
column = New DataGridTextBoxColumn
With column
.MappingName = "DURING_EXP_MONTHS"
.HeaderText = "Exp.M"
.Width = 40
.NullText = ""
End With
tableStyle.GridColumnStyles.Add(column)
column = New DataGridTextBoxColumn
With column
.MappingName = "LAST_USED_MONTH_YEAR"
.HeaderText = "Last uses M-Y"
.Width = 80
' .NullText = ""
End With
tableStyle.GridColumnStyles.Add(column)
Dim CboColumn As DataGridComboBoxColumnStyle
CboColumn = New DataGridComboBoxColumnStyle(LoadSkillLevels(), "CODENAME", "CODETYPEID")
With CboColumn
.MappingName = "SKILL_LEVEL_CODE"
.HeaderText = "Level"
.Width = 100
.NullText = ""
End With
tableStyle.GridColumnStyles.Add(CboColumn)
column = New DataGridTextBoxColumn
With column
.MappingName = "REMARK"
.HeaderText = "Remark"
.Width = 200
' .NullText = ""
End With
tableStyle.GridColumnStyles.Add(column)
End With
'Step 3: Add the tablestyle to the datagrid
'thanhphu
dtgSkill.DataSource = arrSkill
dtgSkill.TableStyles.Add(tableStyle)
Note: arrSkill is an arrayList of EmployeeSkill information.
Carollynn Ann
-- modified at 3:53 Friday 13th January, 2006
|
|
|
|
|
Dear all
I wondering Know how created a program which is connected to the database through out ODBC system,and what the procedure that I have to fulfil in order to make it runing well as I want to.
Could you please to sent me a program sample as well, thank you for your attention and your support in advance
best regrds
ICE
|
|
|
|
|
What versoin os visual studio? 2003 or 2005
ODBC can be SQL or acess. look at a1vbcode.com pleny of examples
arthurvandermerwe@woolworths.co.za
Arthur van der Merwe
BSc, MCSD.net, MSAD.net, MSDBA
|
|
|
|
|
Thank you for your reply, actually I used Visual Studio 2005 an I will use both of SQL and Acces could you mind to tell me how to use both of that kind of data base
Thank you
ICE
|
|
|
|
|
I have installed MS Office with WORD, EXCEL, PowerPoint, ACCESS
How can I open and read it in my application?
Further,
How to open and read it as the print preview mode of WORD?
|
|
|
|
|
Try this simple thing:
Add reference to the COM Component "Microsoft Word xx.xx Object Library".
<br />
Dim wa As New Word.ApplicationClass<br />
Dim doc As Word.Document = wa.Documents.Open("C:\test.doc")<br />
MsgBox(doc.Content.Text())<br />
PraVeeN
NinethSense.com/blog/
|
|
|
|
|
Hi Guys,
I am trying to use the following connection string, -
dcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Application.StartupPath & "\Database\XYZ.mdb"
Application.StartupPath provides the path to the bin folder. However, the Access Databases which I am using are in the Database folder. How should I modify the connectionstring to go one step back from the BIN folder and into the DATABASE folder.
Thnx for any help.
With Best Regards,
Mayur
|
|
|
|
|
Hey, I just figured out how to do it.
dcon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" &
Application.StartupPath & "\..\Database\XYZ.mdb
However, can anyone tell me how do you set this connection in some common module and use it throughout the application rather than making the connection in every windows form.
thnx for any help.
With Best Regards,
Mayur
|
|
|
|
|
aap.config
You have to "add new item" for this.
Specify the connectionstring there.
Example:
<br />
<configuration><br />
<appSettings><br />
<!-- User application and configured property settings go here.--><br />
<!-- Connection string values --><br />
<add key="Provider" value="MSDAORA" /><br />
<add key="DataSource" value="DBTest" /><br />
<add key="UserID" value="Lavanya" /><br />
<add key="Password" value="Password" /><br />
<add key="MailServer" value="EXCH.XYZ.COM"/><br />
</appSettings><br />
</configuration><br />
or
<br />
<connectionStrings><br />
<br />
<add name="ClaimEZ.My.MySettings.BACFConnection" connectionString="Data Source=MYSERVER;Initial Catalog=MYDB;Integrated Security=True" providerName="System.Data.SqlClient" /><br />
<br />
<add name="MyDataLayer.My.MySettings.BACFConnection" connectionString="Data Source=MYSERVER;Initial Catalog=MYDB;Integrated Security=True" providerName="System.Data.SqlClient" /><br />
<br />
</connectionStrings><br />
<br />
PraVeeN
NinethSense.com/blog/
|
|
|
|
|
You don't! Best practice to make the connection to the database only when you need to run a query or modify the tables. The rule of thumb is Connect late, Query fast, Disconnect early. You just don't maintain an open connection to the database for the life of a form or, worse yet, and entire application. With an Access database, maintaining an open connection isn't so bad. But on a real SQL server, that is a VERY expensive connection license you hanging onto and not using.
Get into the habit...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
i want insert values in datagrid via textbox
i m not connected datagrid to database
if anybody know this please help me
vivek
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
