|
Create an EventHandler for the procedure, and add it to the Click event of the item.
---
b { font-weight: normal; }
|
|
|
|
|
So what line of code do I need to add to the code above?
I know in C#, its something like myItem.OnClick = new EventHandler(....)
But that doesnt work in VB.Net
|
|
|
|
|
You're looking for AddHandler[^] and RemoveHandler[^].
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Right now i am trying to make a calculator that can compute more than two integers. So far my equal sign button is big if statement that decides which button was used and which action needs to be taken to compute the right answer.
If btn = 1 Then
total2 = total1 + Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 2 Then
total2 = total1 * Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 3 Then
total2 = total1 - Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 4 Then
total2 = total1 / Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 5 Then
total2 = total1 ^ Val(txtDisplay.Text)
txtDisplay.Text = total2
total1 = 0
ElseIf btn = 6 Then
total2 = total1 * (10 ^ Val(txtDisplay.Text))
txtDisplay.Text = total2
total1 = 0
ElseIf btn = Text Then
End If
Dim s As String
s = String.Format("{0:n2}", total2)
txtDisplay.Text = s
i am having touble making the integers stay in the right places to compute more than two numbers. This my plus button. (I am still trying to figure it out)
If Not total1 = Val("") Then
txtDisplay.Text = total1
ElseIf total1 = Val("") Then
txtDisplay.Text = number1
End If
I am just starting to program and will be grateful for anybody's help
doing_the_right_thing_sometimes_isn't_doing_the_right_thing
|
|
|
|
|
Hi guys,
I added Reference (COM): 10.0 Microsoft Excel Library
I wrote a .xls file, and now I want to send values in cells...
I prefer the use of EXISTING file and not its constuction by code, because it includes a lot of
properties which are difficult for me to make them by code (merge cells etc.).
So, I need help to open this existing .xls file, and send values to the cells. I know the way to send these values by code, I dont know how I make the connection with the .xls file!
Thanks in advance..
-- modified at 1:44 Saturday 21st January, 2006
|
|
|
|
|
Exactly the same way. All you have to do is tell your Excel object to open the file first.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
xlApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook)
xlSheet = Ctype(xlBook.Worksheets(1), Excel.Worksheet)
...
xlSheet.Cells(1,2) = "ok" ' # Make your changes #
...
xlSheet.Application.Visible = True
xlSheet.SaveAs("C:.......\example.xls")
Please tell me the code, to open (connect with) the file: C:\...\Print.xls
Thanx for your care...
|
|
|
|
|
xlBook = xlApp.Workbooks.Open("C:\whatever.xls")
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
how to put flash in vb.net?
|
|
|
|
|
You have to customize the toolbox to add a COM component : shockwave flash object. Then you can place that control inside the form and set the properties.Hope this meets ur needs.
Happy Programming,
Vimal Raj
-- modified at 2:17 Saturday 21st January, 2006
|
|
|
|
|
|
I am using dataset to fill my datagrid. As I don't want the user to know my tables fields I using
select cname as "NAME" FROM PHONE
I am able to fill my datagrid but my problem is my header text is in small character ie. "name". Is there any way in which I can make it CAPS ie. "NAME". 
Kindly Suggest Pls
Thanks in advance
|
|
|
|
|
|
The best way to do it is to not change the column names in the SELECT statement. Instead of relying on the automatic column creation for you DataGrid, make your own columns. You can control what columns they're bound to in your DataSet and what their HeaderText names are, as well as a slew of other thing.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
OK,
It me again.
Now I want to know if it is possible to have a search button on one form. When I click on the button it should take all the data from the Database and display it on the other two forms. I know for sure that I might be able to do this by calling funtions but don't know if it will work. If any of you have ever done this kind of coding please help this poor guy.
Thanks.
|
|
|
|
|
I believe that I understand your problem. This is how you would go about doing it. I don't know what server you are trying to run off of (MS Sql server, oracle, an internal dataset application, whatever) but you would have to setup a dataconnection to call the information from the server, then you would have to setup a dataset off of that dataconnection to actually go in and retrieve the data, once you put the dataset control in your environment you have to bind the properties of it so that it uses the dataconnection. I believe the property is datasource (if you set the data source to your connection which could be named mydbcon or whatever you named it) the data source allows the dataset to connect through the dataconnection type which actually the dataconnection only connects to the server, logs in, then the dataset retrieves the information requested from the server. .Net has server control boud functions for this that login to a server and retrieve data from it based off of data connections and datasets. These controls should automatically be placed inside your toolbox in VStudios. The next step that I am about to arrive at is binding the button search to display the dataset on the next control. This is probably the easiest part. We will display Form2 with the dataset control on the form using the nice easy
With New function that is supported in VB.Net. This is how you would call Form2 to load on the button click event to display with the dataset object:
Private Sub btnsearch_Clicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click<br />
With New Form2<br />
.Show()<br />
End With<br />
End Sub<br />
Now I don't know how you have your environment setup but if you have the dataset object to display on the load of form2 then you have to set the search results to bind with the search query given. Again you can do this using the with New function.
I apologize if this sounds confusing, I am at school and don't have Visual Studios on me so I am having to do this all off my head  If you have any further questions or problems MSDN libraries is a great resource on explaining how to connect datasets to dataconnections and dataconnections to servers (or any other programming problems you may arrive at). Thanks hope this helps!
~ Mike
|
|
|
|
|
Thanks alot Mike,
I really appreciate your time and effort.
I am using Access DB and this is the code in my search button.
Right now it does'nt even work for Form1. By that I mean I am missing simple code to open the database. I am using stored procedures by the way.
Take a look and let me know if it makes sense.
-----------------------------------------------------------------------------
Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click<br />
<br />
Dim data As New dbAccess<br />
Dim logNumber As Long<br />
'data.GetAllChangeControl(CDate(txtdtrqst.Text), CDate(txttrgdt.Text), CDate(txttime.Text), txtrqstby.Text, txtprojname.Text, txtdscp.Text, txtusers.Text, txtdpt.Text)<br />
logNumber = data.GetAllChangeControl<br />
Dim srch As Change<br />
srch.DateRequested = txtdtrqst.Text<br />
srch.TargetDate = txttrgdt.Text<br />
srch.Time = txttime.Text<br />
<br />
'txtdtrqst.Text = srch.DateRequested<br />
<br />
End Sub
----------------------------------------------------------------------------
This is the class called dbAccess
<br />
<br />
Public Function GetAllChangeControl() As String<br />
Dim con As OleDbConnection<br />
Dim cmd As OleDbCommand = New OleDbCommand<br />
<br />
con = New OleDbConnection(connectionstring)<br />
cmd.Connection = con<br />
<br />
cmd.CommandText = "EXECUTE GetAllChangeControl"<br />
con.Open()<br />
GetAllChangeControl = CStr(cmd.ExecuteScalar()):mad:<br />
con.Close()<br />
<br />
End Function
----------------------------------------------------------------------------
This is another class which only has all the stored procedures and they refletct the stored procedures in Access. I mean the same code is in Access.
sSQL = "CREATE PROC GetAllChangeControl AS SELECT * FROM ChangeControl WHERE LogNumber = @LogNumber;"
CreateStoredProc(sSQL)
---------------------------------------------------------------------------
When I run the program I get the error message where you see the mad face.
err msg "An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.windows.forms.dll"
Any help would be appreciated.
Thanks.
|
|
|
|
|
I think you may be running into problems on this specific function cmd.ExecuteScalar(). I need to know what data its trying to pull. Try puting a breakpoint on the line and executing it. When it stops at that line open up the immediate window (down by your output for compilation) and type into it
?GetAllChangeControl
It would be good if it said NULL or Nothing, which I am sure it will sense it dies at that point. Does Visual Studios give you the key dropdown after you type cmd.? If it doesn't that is where the problem would be. I'm just throwing out a list of ideas here, try the debugging with the immediate window and let me know what the output of it is.
~ Mike
|
|
|
|
|
Try the following with your function:
Public Function GetAllChangeControl() As String
Dim con As OleDbConnection
Dim cmd As OleDbCommand = New OleDbCommand
con = New OleDbConnection(connectionstring)
cmd.Connection = con
cmd.CommandText = "EXECUTE GetAllChangeControl"
con.Open()
'---------------------------------------------
' Here is the change
Dim retVal As Object
Try
retVal = cmd.ExecuteScalar()
If Not(IsNothing(retVal)) Then
Return Cstr(retVal)
Else
Return String.Empty
End If
Catch ex As OledbException
Throw ex
Finally
con.Close()
If Not con Is Nothing Then con.Dispose
If Not cmd Is Nothing Then cmd.Dispose
End Try
'------------------------------------------
End Function
Let me explain, it is possible that your "cmd.ExecuteScalar" is not returning anything and you are not checking for that, so what I've done here is do a simple check and return the appropriate value. I have also enclosed the procedure in a Try statement to capture the Exception, and make sure that even if an Exception is thrown, the connection is closed and you realease your resources.
I hope this helps.
|
|
|
|
|
I would like to be able to click on the drop down arrow. Pick the date and once I click it should show the date in a seperate text box.
Does anyone know the code for that.
Any help would be appreciated.
Thanks.
|
|
|
|
|
Handle the DateTimePicker's ValueChanged event. Get the Value from your DateTimePicker control, convert it to a String in the format you want and set the Text property of your TextBox.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks Dave,
How do I put all this in code language.
I am sorry for being so dumb but I am new to VB.Net and just want to get over with this stupid project.
Please help!
|
|
|
|
|
shakizil wrote: I am new to VB.Net and just want to get over with this stupid project.
Why does this scream "HOMEWORK ASSIGNMENT"???
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
