|
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
|
|
|
|
|
Yes it is, but it doesn't sound like you have any experience with using Excel with VB. In that case you might want to look at this[^] first. Then experiment with the Excel object model.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Very little experience in this field, thanks for the link. Any hints or tips for making this work?
|
|
|
|
|
It's very straight forward. Your code would just follow the steps you would normally take if you did it by hand. But, you have to learn the Excel object model along the way, which is quite large.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
How can I merge two or more MP3 files in VB .Net application. I have to first read the file and then merge them and write the merged entity to new file
|
|
|
|
|
What do you mean by merge? So that you can hear both files at the same time or are you adding one file to the end of another?
In either case, you'll need an in-depth knowledge of how MP3 files work. There is no component built into VB.NET or the .NET Framework that'll do this for you. You'll need either DirectSound (in the DirectX SDK) or some other 3rd party library to do something like this. You can Google for "MP3 component .NET" for some suggestions.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi every one,i would like to draw a single line in my form,for that i am using the following code which i got from the samle code,but i just dont know what wrong with my code as i not geting the line,
Dim g As Graphics<br />
'Sets g to a Graphics object representing the drawing surface of the<br />
' control or form g is a member of.<br />
'g = BtnLogin.CreateGraphics<br />
g = Me.CreateGraphics<br />
Dim myPen As New Pen(Color.White)<br />
myPen.DashStyle = Drawing.Drawing2D.DashStyle.Dash<br />
myPen.Width = 2<br />
g.DrawLine(myPen, 4, 2, 12, 6)<br />
pls get back to me.after viewing this
|
|
|
|
|
Where in your app is this code? Is it in the OnPaint Event of your form?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Here's a user control that draws a 3D line like vb 6 has built-in.
'-------------------------------------
Imports System.Drawing
Public Class ThreeDLine
Inherits System.Windows.Forms.UserControl
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'UserControl overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'
'ThreeDLine
'
Me.Name = "ThreeDLine"
Me.Size = New System.Drawing.Size(472, 152)
End Sub
#End Region
Public Enum tOrientation
Horizontal
Vertical
End Enum
Public Property Orientation() As tOrientation
Get
Return m_Orientation
End Get
Set(ByVal Value As tOrientation)
m_Orientation = Value
'Set a "default" height and width
If m_Orientation = tOrientation.Horizontal Then
Me.Width = 120
Me.Height = 2
Else
Me.Width = 2
Me.Height = 100
End If
End Set
End Property
Private m_Orientation As tOrientation
Private Sub ThreeDLine_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
'Draws the line
'Point Variables
Dim pL1 As Point
Dim pL2 As Point
Dim pL3 As Point
Dim pL4 As Point
'Create a pen, you can change the colours if they're wrong.
Dim DP As New Pen(System.Drawing.SystemColors.ControlDark)
Dim LP As New Pen(SystemColors.ControlLight)
'Determine orientation then set the height of the control
'Set the starting points for first and second lines:
If m_Orientation = tOrientation.Horizontal Then
Me.Height = 2 '(2 pixels)
pL1 = New Point(0, 0)
pL2 = New Point(1, 1)
pL3 = New Point(Me.Width - 1, 0)
pL4 = New Point(Me.Width, 1)
Else
Me.Width = 2
pL1 = New Point(0, 0)
pL2 = New Point(1, 1)
pL3 = New Point(0, Me.Height - 1)
pL4 = New Point(1, Me.Height)
End If
'Draw the lines. Simple.
e.Graphics.DrawLine(DP, pL1, pL3)
e.Graphics.DrawLine(LP, pL2, pL4)
End Sub
Private Sub ThreeDLine_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
'--------------------------
REF:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemDrawing.asp
|
|
|
|
|
In a Windows 2000 domain, is there a way for me to check the Users ID currently are login from which Computer name. Currently I am supporting users Computer from various Countries and at location in my company. I know the login Users ID but would not know from which Computer name they are login from. I am trying to write a program either using VB.Net or VB to see the user is currently login from which Computer. This will help me locate the users computer faster and more efficient for troubleshooting from remote. This program will likely to run from my Computer. Else I will have to guide the user how to find out thier Computer name or IP addresss. Or is there any alternative way to find out the Users ID login from which Computer name. Thanks
|
|
|
|
|
The legacy domains don't save such information, so finding it would be impossible.
In Active Directory, though, you can try the Network Address property, or the Last-Workstation property of the User object, though it is documented as "not used". Other than those properties, the information is not stored anywhere else.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I wonder if the original BASIC is an interpreted language, since the original BASIC uses an interpreter rather than a compiler.
Also, what is the extension of the BASIC file? (for example, .c is for C language, then what is BASIC's)
Okay, now, is Visual Basic an interpreted language or compiled language?
Thanks
-----------------------------
C++ without virtual functions is not OO. Programming with classes but without dynamic binding is called "object based", but not "object oriented".
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
