I think the best way is to create an application in the most common resolution and that's 800x600. The raison for that is to handle smaller rsolutions and then resize it based on the screen object.
You can try then this paart of code:
Dim h, w As Integer
h = Screen.PrimaryScreen.WorkingArea.Height
w = Screen.PrimaryScreen.WorkingArea.Width
Me.Width = w
Me.Height = h
Me.CenterToScreen()
or
Dim h, w As Integer
h = Screen.PrimaryScreen.Bounds.Height
w = Screen.PrimaryScreen.Bounds.Width
Me.Width = w
Me.Height = h
Me.CenterToScreen()
I think the upgrade wizard doesn't work because of the complexity of your VB6 application. (74 forms) What you could try is to use the wizard form by form and then build the application all together in VB.Net.
That said, when the wizard is working it's not always the best solution and it is possible that still need time to resolve some errors. So it's better to rewrite your application in the proper VB.Net syntax even when you need time to do it.
i have a radio button and a text box. when i select the radio button, then will come out the text box to let user fill in. may i know to show the text box? below are my coding.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.Visible = True
If RadioButton4.Checked = True Then
TextBox2.Visible = True
Else
TextBox2.Visible = False
End If
End Sub
End Class
hope someone can help me. thx
Hi,
You can do it like this example. Add a textbox and 2 radiobuttons then try it:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Visible = False
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
TextBox1.Visible = True
Else
TextBox1.Visible = False
End If
End Sub
End Class
Was wondering, is it possible to create a class which has the majority of your keypress controls? Like allowing just letters or numbers in a textbox etc....
To make things clearer what i exactly want.
I have a textbox on my form. This is a textbox for the postcode. The postcode is supposed be something along the lines of AA 1234. This will be checked on lostfocus.
But i need to code this in a class, and this is where i am stuck.
Hi,
When you says that you need to do it in a Class means for me that you need to create a Custom TextBox right.
You can find an example (Checkbox) how to create a custom Control, here.
If however it isn't really necessary you can try a MaskedTextBox. Try this:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MaskedTextBox1.Mask = "LL 0000"
End Sub
Private Sub MaskedTextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MaskedTextBox1.LostFocus
If MaskedTextBox1.MaskFull Then
MaskedTextBox1.BackColor = Color.Tomato
If MaskedTextBox1.MaskCompleted Then
MessageBox.Show("Entry in mask is valid", "Valid Entry", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Else
MaskedTextBox1.BackColor = Color.White
End If
End Sub
End Class
i created loan table, and i m fetching loan amount of each employee in a label to see d actual loan amount then i have one text box where user will insert amount and remaining amount on deduction come in another label as balance amount.
Hi wenbnet,
You have a database for several employees (several records) and for each employee you you have several columns for the loan amount.
Where does the loan amount and insert amount comes from....
You see a lot of questions.
Can you show us your codes and what errors do you have.
For your first question. It's working normal because you put it in the Timer Event. That means every second the timer execute you'll have an item added into the Listbox.
What you can do is change the timer interval to the executiontime you need or put it into a Button event instead of timer.
Here's a small example how to draw a line on a panel and to clean the panel:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim redPen As Pen = New Pen(Color.Red, 2)
Dim point1 As Point = New Point(10, 10)
Dim point2 As Point = New Point(120, 180)
Panel1.CreateGraphics.DrawLine(redPen, point1, point2)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Panel1.Invalidate()
End Sub
Dim oReg As RegistryKey = Registry.CurrentUser
Dim oKey as RegistryKey = oReg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
oKey.SetValue("MyVBApp", cPGM)
I think yoou can only send the generated file as attachment, but you can always write code that you can't change the specific Email ID. See previous post how to send an Email.
Private Sub ListView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
Dim SelectedItems As ListView.SelectedListViewItemCollection = _
CType(sender, ListView).SelectedItems
If (SelectedItems.Count > 0) Then
Label1.Text = ListView1.SelectedItems(0).SubItems(0).Text
End If
End Sub
To export a Crystal Report to PDF. You can find some information, here.
To send an Email, try this:
Dim mail As New MailMessage()
mail.To = "me@mycompany.com"
mail.From = "you@yourcompany.com"
mail.Subject = "this is a test email."
mail.Body = "this is my test email body."
Dim attachment As New MailAttachment(Server.MapPath("test.pdf")) 'create the attachment
mail.Attachments.Add(attachment) 'add the attachment
SmtpMail.SmtpServer = "localhost" 'your real server goes here
SmtpMail.Send(mail)
Here's a way how to print the contents of a Label and TextBoxes. For example add two labels to a panel and name them Students Name and Fathers Name. Next to the Labels add two Textboxes where you can write the contents. Then add two buttons and a PrintPreviewDialog and a PrintDialog.
Try this:
Imports System.Drawing.Printing
Public Class Form1
Private WithEvents pndocument As PrintDocument
Private Sub btnshowpreview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshowpreview.Click
Dim previewmode As New PrintPreviewDialog
pndocument = New Printing.PrintDocument
previewmode.Document = pndocument
previewmode.ShowDialog()
pndocument = Nothing
End Sub
Private Sub btnprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnprint.Click
pndocument = New PrintDocument
pndocument.Print()
End Sub
Private Sub pndocument_Printpage(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs) Handles pndocument.PrintPage
Dim prFont As New Font("Calibri", 24, GraphicsUnit.Point)
e.Graphics.DrawString( _
Label1.Text, prFont, _
Brushes.Black, 30, 30)
e.Graphics.DrawString( _
Label2.Text, prFont, _
Brushes.Black, 30, 70)
e.Graphics.DrawString(TextBox1.Text, prFont, Brushes.Black, 300, 30)
e.Graphics.DrawString(TextBox2.Text, prFont, Brushes.Black, 300, 70)
End Sub
End Class
To print the proper format in the textboxes you need to ask the user to use the proper format.
You need to iterate through the DataGridView rows and for each row, cast the cell in the column of interest to DataGridViewCheckBoxCell and cast the Value to a bool.
