|
I initially had pictures that acted as buttons to move forward and backwards within a list of pictures that I have contained in an arrayList. The code that I had on the picture click events worked, but then removed the pictures and used buttons instead and can no longer get the screen to refresh.
This is what I had before for the picture click events
<br />
If currentPage > 0 Then<br />
currentPage -= 1<br />
Me.frmMain_Paint(Me, New System.windows.Forms.PaintEventArgs(Me.CreateGraphics, New Rectangle(0, 0, 0, 0)))<br />
End If<br />
This is probably not a good way of doing it, but it worked
Does anyone know how to do the same with buttons. Thanks
|
|
|
|
|
Public Sub CalcDaysWorked()
Dim I, X As Integer
For I = 41 To 1 Step -1
If (FrmCalendar.TxtDate(I).Text = "1") Or ((FrmCalendar.TxtDate(I).Text = "2") Or (FrmCalendar.TxtDate(I).Text = "3") Or _
(FrmCalendar.TxtDate(I).Text = "7")) Then
FrmCalendar.TxtDaysWrkd.Text = (Val(X))
Exit Sub
Else
If FrmCalendar.TxtDate(I).Text = "W" Then
X = (X + 1)
Else
If (FrmCalendar.TxtDate(I).Text <> "1") Or ((FrmCalendar.TxtDate(I).Text <> "2") Or _
(FrmCalendar.TxtDate(I).Text <> "3") Or (FrmCalendar.TxtDate(I).Text <> "7")) Then 'IGNORE IT
I = (I - 1)
End If
End If
End If
Next I
FrmCalendar.TxtDaysWrkd.Text = (Val(X))
FrmCalendar.TxtDaysWrkd.Refresh
End Sub
BAsically this is part of an employees attendance/work record it keeps track of points(1,2,3 or 7)
days worked"w"
and some misc info that need not be tracked for this calculation
thus the I=I-1 'to ignore the entry
I need to calculate the days worked (my w's) after the last occurance of an infraction(1,2,3 or 7)
My code works 100% however i forsee an error if a "w" is enetered on the last day of the month
This is because the x values is only calulating on ever other loop through the code
The problem is in the above code..When I debug it it gets called on correctly everytime but the "x" value is not incrementing by 1 every time!
Greg S
|
|
|
|
|
I have one form. There is one datagrid in that. When I click on a button to add data, one form will show. I want when I click on Close button on Form 2, datagrid value of Form 1 will change. How I can refresh datagrid source from the other form ? Please help me. Thanks
|
|
|
|
|
Well the problem I am having right now is as follows:
I am building a MDI application. In my application there are one mother (MDIContainer form) and two other children forms. The first child form has a listview control with checkboxes in which rows of a specific table (rows with status flag = 0) are shown and a button. The user checks a row and then presses the button. The second child form shows and display detailed information of the selected row. There is also a button to approve this record. Once the user presses the approve button the status flag of this row is set to 1.
What I want to do is the following:
Once the user presses on the approve button of the second child form and then if he switches to the first child form through selecting its name form the window menu of the mother form I want to show him the updated list (i.e. the approved row to be excluded).
How can I do that? I really appreciate your help.
Many thanks.
|
|
|
|
|
There are two ways you could try to do that. The first would be to declare all the controls on both child forms as Public. Then, you could access controls from the other form.
Your second option would be to create a module that would contain variables, and depending on the variables, the listview would update.
Aaron Eldreth
TheCollective4.com
My Articles
While much is too strange to be believed,
Nothing is too strange to have happened.
- T. Hardy
|
|
|
|
|
ive been wondering along time.
does anyone know how to use MIDI instruments, etc, to create notes for output to speakers, in VB.net?
it seems impossible, no one has said anything about it.
------------------------
Jordan.
III
|
|
|
|
|
Nadroj wrote:
it seems impossible, no one has said anything about it.
I'm sure someone knows how to do it, but not me. Have you tried searching MSDN or Google?
Aaron Eldreth
TheCollective4.com
My Articles
While much is too strange to be believed,
Nothing is too strange to have happened.
- T. Hardy
|
|
|
|
|
iv been searching online for quite a while then gave up. i can only find examples in vs.net for like c++, c#, not vb.net
anyways, thanks alot for your input!
------------------------
Jordan.
III
|
|
|
|
|
Nadroj wrote:
for like c++, c#, not vb.net
Use the C# stuff and convert it over. Should not be that hard.
Paul Watson wrote:
"At the end of the day it is what you produce that counts, not how many doctorates you have on the wall."
George Carlin wrote:
"Don't sweat the petty things, and don't pet the sweaty things."
Jörgen Sigvardsson wrote:
If the physicists find a universal theory describing the laws of universe, I'm sure the a**hole constant will be an integral part of that theory.
|
|
|
|
|
Ray Cassick wrote:
Use the C# stuff and convert it over. Should not be that hard.
This is true. I never really learned C#, but I know JavaScript (the syntax is very similar).
All you have to remember when converting from C# to VB.Net, is that you declare the data type defore the variable.
Examples:
(dim i as integer) in VB.Net is (int i = 5) in C#
(sub hello(byval world as string)) in Vb.Net is (void hello(string world)) in C#.
Aaron Eldreth
TheCollective4.com
My Articles
While much is too strange to be believed,
Nothing is too strange to have happened.
- T. Hardy
|
|
|
|
|
Because I am a lazy programmer (there is an oxymoron right?) If the code is long and I am crunched for time I always start out with a quick conversion tool. It atleast gets me 90% there most of the time.
Try this one out[^]
Paul Watson wrote:
"At the end of the day it is what you produce that counts, not how many doctorates you have on the wall."
George Carlin wrote:
"Don't sweat the petty things, and don't pet the sweaty things."
Jörgen Sigvardsson wrote:
If the physicists find a universal theory describing the laws of universe, I'm sure the a**hole constant will be an integral part of that theory.
|
|
|
|
|
Yes, C# to VB.Net converters can usually convert a good amount of code decently. There are still some things that are not converted correctly (attaching events, single line if...then, etc.) but converters are a good time saver. Especially if you are a lazy programmer like Ray or me 
Aaron Eldreth
TheCollective4.com
My Articles
While much is too strange to be believed,
Nothing is too strange to have happened.
- T. Hardy
|
|
|
|
|
Looking for code to pass information from Form2.textbox1 back to Form1.label1
Process - Press Form1.button1 to show Form2,
Enter information into Form2.textbox1,
Press Form2.button1 to display information from Form2.textbox1 to Form1.label1.
Thnaks in Advance!
Form1 consists of <Startup Form>
Label1
Button1
For2 consist of
textbox1
Button1
|
|
|
|
|
The simplest way is to set the access modifier of the textbox to public or friend, then set
label1.text = textbox1.text
"if you vote me down, I shall become more powerful than you can possibly imagine" - Michael P. Butler.
Support Bone
It's a weird Life
|
|
|
|
|
just a thought..dont u hav to use inheritance to do this sorta thing?...I'm actully looking to do same thing as well but with no luk so far..
rubdub 
|
|
|
|
|
Here it is -
Some background info for you that was given to me in the C# area
[Google on "Mediator pattern" and "MVC" (or "Model-View-Controller"). If you learn how to use these patterns, you'll never get stuck like this again; your code won't need tricks like passing a form to another form. I recommend "Design Patterns" by the Gang of Four.]
I just went to Microsoft ans sought out "Model-View-Controller"
As for the code. A no brainer once you do it, Key words "once you do it"
Once you have placed this very generic code in the forms and "Shared" class, go to project properties and
set the startup object to "Global" - this is you shared class, you can use this class or whatgever class you use for application prep, tracings and logs.
Option Strict On
Option Explicit On
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Global.postF2()
End Sub
End Class
Option Strict On
Option Explicit On
Public Class Form2
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Hide()
Global.postF1(TextBox1.Text)
End Sub
End Class
Option Strict On
Option Explicit On
Public Class Global
Public Shared f1 As Form1
Public Shared f2 As Form2
Public Shared Sub main()
f1 = New Form1
Application.Run(f1)
End Sub
Public Shared Function postF2() As String
f2 = New Form2
f2.Show()
End Function
Public Shared Function postF1(ByVal post As String) As String
f1.Label1.Text = post
End Function
|
|
|
|
|
create a fillschema a dataset
I create a SYBASECOMMANDBUILDER (from DDTEK Sybase Driver)
I create a row from the dataset
I fill the row with data
I add the row back to the datatable
[rowstate is now UNCHANGED]
I make a change to the newly added row
[rowstate is still UNCHANGED]
Of course the following update command returns zero, since there are no rows that do not have a status of "UNCHANGED". Can someone explain to me what I did wrong? datarow adds and changes should change the rowstate to Added and Modified respectively. Thanks in advance
Have a blessed day in Messiah EYAWHOOSHUA!
|
|
|
|
|
I dont know how to do that. Directly in the Keypress event. Someone can help me ?
I am a newbie
|
|
|
|
|
Your definition of what you need is lacking. However, if I understand correctly, in a KeyPress event, you want to take the key that was pressed and convert it to uppercase. If this is your goal, try this in your sub
<br />
Dim key As Char = UCase(e.KeyChar)<br />
Hope this helps
Aaron Eldreth
TheCollective4.com
My Articles
While much is too strange to be believed,
Nothing is too strange to have happened.
- T. Hardy
|
|
|
|
|
TextBox1.CharacterCasing = CharacterCasing.Upper
That's what I neeeded
I am a newbie
|
|
|
|
|
i need a function, method, or api with which you can send a form to botton, not to top, so that the form will appear behind all other windows and above the desktop
thank you in advance
|
|
|
|
|
Hi,
From VB you can use ZOrder,
MyForm.ZOrder 0 will send the form to the top of the z order
MyForm.ZOrder 1 will send it to the bottom of the z order
If you are looking for more control, check SetWindowPos API function,
BOOL SetWindowPos(
HWND hWnd,
HWND hWndInsertAfter,
int X,
int Y,
int cx,
int cy,
UINT uFlags
);
where hWndInsertAfter is a handle to the window to precede the positioned window in the Z order or one of the following values.
HWND_BOTTOM
HWND_NOTOPMOST
HWND_TOP
HWND_TOPMOST
Check the MSDN for a detailed explanation.
Fabian
|
|
|
|
|
Hello,
I am new to VB.NET and i need to accomplish this task. I have a form that contains a radiobuttonlist.
<tr>
<td class="NavyBold">Choose a Category:</td>
<td><asp:checkboxlist id="chkcomm" Runat="server" RepeatDirection="Vertical" RepeatColumns="2" AutoPostBack="false">
<asp:ListItem Value="Europe"></asp:ListItem>
<asp:ListItem Value="Australia"></asp:ListItem>
<asp:ListItem Value="North America"></asp:ListItem>
<asp:ListItem Value="Central America"></asp:ListItem>
<asp:ListItem Value="South America"></asp:ListItem>
<asp:ListItem Value="Asia"></asp:ListItem>
</asp:checkboxlist></td>
</tr>
Base on the selection on this radiobutton list once the form is submitted I have to generate an email to the department that can answer questions base on the category they chose on my radiobuttonlist.
How can I code this so I can accomplish this task. All the help will be appreciated.
|
|
|
|
|
Hi there. Well, in your code you're using a CheckBoxList object... do you want a RadioButtonList instead? If you have a single selected value (as in a RadioButtonList) you could use the following code to get it:
Dim sValue as String = chkcomm.SelectedValue Or for multiple selections (as in a CheckBoxList) you could enumerate through the items to see which are selected with code like this:
Dim i as Integer
For i = 0 to chkcomm.Items.Count - 1
If chkcomm.Items(i).Selected Then
'... do something with the selected item...
End If
NextTo send the email, investigate the System.Web.Mail namespace. Here's a simple example:
Imports System.Web.Mail
Sub SendAMessage(sSendTo as string, sSubject as string, sBody as string)
Dim mm as MailMessage = new MailMessage()
'--set message properties
mm.From = "me@mycompany.com"
mm.To = sSendTo
mm.Subject = sSubject
mm.Body = sBody
'--set the SMTP server that will handle the outgoing message
SmtpMail.SmtpServer = "mycompany.com"
'--send the message
SmtpMail.Send(mm)
End SubIn your case, you would probably use a Select Case...End Select block to set up the .To property, based on the selected values. If you want more examples just do a search on CodeProject.
|
|
|
|
|
Hi thanks for the help.
Am I in the right direction with this. Base on the value selected on my radio button list i need to send an email to the the corresponding person pertaining to the subject.
thank in advance for the feedback.
Dim sValue as String = chkcomm.SelectedValue
Dim i as IntegerFor i = 0 to chkcomm.Items.Count - 1
If chkcomm.Items(i).Selected = 'Europe'
Then
'Sub SendAMessage(sSendTo as string, sSubject as string, sBody as string)
Sub Message As MailMessage = New MailMessage
Message.From = "postmaster@test.net"
Message.To = "me@test.net"
Message.Subject = "Europe"
Message.Body = "There is a new Europe Form that was submitted.Please click on the following link http://test/testfolder/continets/Main.aspx"
Message.Cc = "you@test.net"
Message.Bcc = "us@test.net"
Try
SmtpMail.SmtpServer = "TESTIMC01.TEST.com"
SmtpMail.Send(Message)
Catch ehttp As System.Web.HttpException
'Catch error here
End Try
'End Sub
Else
chkcomm.Items(i).Selected = 'Australia'
Then
Sub Message As MailMessage = New MailMessage
Message.From = "postmaster@test.net"
Message.To = "me@test.net"
Message.Subject = "Australia"
Message.Body = "There is a new Autralia Form that was submitted.Please click on the following link http://test/testfolder/continets/Main.aspx"
Message.Cc = "you@test.net"
Message.Bcc = "us@test.net"
Try
SmtpMail.SmtpServer = "TESTIMC01.TEST.com"
SmtpMail.Send(Message)
Catch ehttp As System.Web.HttpException
'Catch error here
End Try
Else
chkcomm.Items(i).Selected = Noth America'
Then
Sub Message As MailMessage = New MailMessage
Message.From = "postmaster@test.net"
Message.To = "me@test.net"
Message.Subject = "North America"
Message.Body = "There is a new Norht America Form that was submitted.Please click on the following link http://test/testfolder/continets/Main.aspx"
Message.Cc = "you@test.net"
Message.Bcc = "us@test.net"
Try
SmtpMail.SmtpServer = "TESTIMC01.TEST.com"
SmtpMail.Send(Message)
Catch ehttp As System.Web.HttpException
'Catch error here
End Try
Else
chkcomm.Items(i).Selected = Central America'
Then
Sub Message As MailMessage = New MailMessage
Message.From = "postmaster@test.net"
Message.To = "me@test.net"
Message.Subject = "Central America"
Message.Body = "There is a new Central America Form that was submitted.Please click on the following link http://test/testfolder/continets/Main.aspx"
Message.Cc = "you@test.net"
Message.Bcc = "us@test.net"
Try
SmtpMail.SmtpServer = "TESTIMC01.TEST.com"
SmtpMail.Send(Message)
Catch ehttp As System.Web.HttpException
'Catch error here
End Try
Else
chkcomm.Items(i).Selected = South America'
Then
Sub Message As MailMessage = New MailMessage
Message.From = "postmaster@test.net"
Message.To = "me@test.net"
Message.Subject = "South America"
Message.Body = "There is a new South America Form that was submitted.Please click on the following link http://test/testfolder/continets/Main.aspx"
Message.Cc = "you@test.net"
Message.Bcc = "us@test.net"
Try
SmtpMail.SmtpServer = "TESTIMC01.TEST.com"
SmtpMail.Send(Message)
Catch ehttp As System.Web.HttpException
'Catch error here
End Try
Else
chkcomm.Items(i).Selected = Asia'
Then
Sub Message As MailMessage = New MailMessage
Message.From = "postmaster@test.net"
Message.To = "me@test.net"
Message.Subject = "Europe"
Message.Body = "There is a new Europe Form that was submitted.Please click on the following link http://test/testfolder/continets/Main.aspx"
Message.Cc = "you@test.net"
Message.Bcc = "us@test.net"
Try
SmtpMail.SmtpServer = "TESTIMC01.TEST.com"
SmtpMail.Send(Message)
Catch ehttp As System.Web.HttpException
'Catch error here
End Try
End If
Next
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
