https://www.startvbdotnet.com/forms/form4.aspx

https://dev.mysql.com/tech-resources/articles/ebonat-load-and-search-mysql-data-using-vbnet-2005.html

https://www.sourcecodester.com/visual-basic-net/how-add-update-delete-record-using-mysql.html

https://www.vbmysql.com/articles/vbnet-mysql-tutorials/the-vbnet-mysql-tutorial-part-3

https://www.codeguru.com/forum/showthread.php?t=479284

https://search.mywebsearch.com/mywebsearch/GGmain.jhtml?id=ZVfox000&ptb=8TpdW29CcjzcyquKgq9e.w&psa=&ind=2010062520&ptnrS=ZVfox000&si=&st=kwd&n=77cf1eb8&searchfor=how+to+create+a+backup+file+in+vb.net+using+mysql+database

https://dev.mysql.com/tech-resources/articles/ebonat-exception-error-handling-implementation-in-vbnet-apps.html

Sub search()
ListBox1.SelectedItems.Clear()
Dim theList As Long

Dim textToSearch As String

Dim theListText As String

textToSearch = LCase(TextBox1.Text)

For theList = 0 To ListBox1.Items.Count - 1

theListText = LCase(ListBox1.Items.Item(theList))

If theListText = textToSearch Then ListBox1.Text = textToSearch

Next
If ListBox1.SelectedItems.Count = 0 Then
MsgBox("record not found")
End If
End Sub

hi,

anyone know how to create multiple textbox using for loop in vb.net?

Dim i As Integer
For i = 0 To i <= 10
Dim textBox(i) As TextBox

textBox(i).Multiline = True
textBox(i).ScrollBars = ScrollBars.Vertical
textBox(i).AcceptsReturn = True
textBox(i).AcceptsTab = True
textBox(i).WordWrap = True
textBox(i).Text = "Welcome!"
textBox(i).Visible = True

Me.Controls.Add(textBox(i))

Next

I have write the above coding but it's look not successfully and didn't appear any textbox comeout!!!
So, anyone know please help!

https://www.devarticles.com/c/a/VB.Net/Simple-VB.NET-Notify-Icon-with-Panel-Application/5/

Private systray As New NotifyIcon()

Public Sub Main()

Dim mnu As New ContextMenu()
Dim mnuitem As New MenuItem()

mnuitem.Text = "Exit"

AddHandler mnuitem.Click, AddressOf EndApp

mnu.MenuItems.Add(mnuitem)

systray.ContextMenu = mnu
systray.Icon = New Icon(Application.StartupPath & "\systray.ico")
systray.Visible = True

Application.Run()
End Sub

Private Sub EndApp(ByVal sender As Object, ByVal e As EventArgs)
systray.Visible = False
Application.Exit()
End Sub

https://www.codeproject.com/KB/vb/ZipDemo.aspx?display=Print

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'Create a PrintDocument and attach it to PrintPreview dialog

ppdGameForm.Document = PreparePrintDocument()

'Preview the PrintDocument

'Anti-aliasing removes jagged lines when fonts are rendered, but slows down rendering

ppdGameForm.UseAntiAlias = True

ppdGameForm.WindowState = FormWindowState.Maximized

ppdGameForm.ShowDialog()

End Sub



Private Function PreparePrintDocument() As Printing.PrintDocument

' Make the PrintDocument object.

Dim objPrintDocument As New Printing.PrintDocument

objPrintDocument.DocumentName = "Shot Chart"

' Install the PrintPage event handler.

AddHandler objPrintDocument.PrintPage, AddressOf Print_PrintPage

' Return the object.

Return objPrintDocument

End Function



Private Sub Print_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

Using objGraphics As Graphics = e.Graphics

Dim iXAdjustment As Integer = 0

Dim iYAdjustment As Integer = 0

Dim strHeaderTitle As String = ""

Dim strPeriodHeader As String = ""

Dim objRectangle As Rectangle

Dim objPen As New Pen(Color:=Color.Black, Width:=3)

Dim objFont As Font

Dim stringFormat As New StringFormat()

'Align text Center/Top

stringFormat.Alignment = StringAlignment.Center

stringFormat.LineAlignment = StringAlignment.Center

'Create Document Header

objFont = New Font("Tahoma", 18, FontStyle.Bold, GraphicsUnit.Point)

objRectangle = New Rectangle(x:=0, y:=30, Width:=850, Height:=30)

'Draw the Header

If cboLocation.Text = "Away" Then

strHeaderTitle = mstrOpponentTeamNickname & " vs " & mstrOurTeamNickname & " Shot Chart"

Else

strHeaderTitle = mstrOurTeamNickname & " vs " & mstrOpponentTeamNickname & " Shot Chart"

End If

objGraphics.DrawString(mstrOurTeamNickname & " Shot Chart", objFont, Brushes.Black, objRectangle, stringFormat)

'Second and third header lines

objFont = New Font("Tahoma", 12, FontStyle.Regular, GraphicsUnit.Point)

objRectangle = New Rectangle(x:=0, y:=60, Width:=850, Height:=40)

If cboLocation.Text = "Away" Then

strHeaderTitle = mstrOpponentTeamNickname & " vs " & mstrOurTeamNickname

Else

strHeaderTitle = mstrOurTeamNickname & " vs " & mstrOpponentTeamNickname

End If

strHeaderTitle = strHeaderTitle & vbCrLf & dtpGameDate.Value

objGraphics.DrawString(strHeaderTitle, objFont, Brushes.Black, objRectangle, stringFormat)

For I As Integer = 1 To 4

'Draw a box around 1/2 court

If I = 1 Then

iYAdjustment = 120

Else

iYAdjustment = ((I - 1) * 220) + 120 '100 is placement of first print

End If

iXAdjustment = 45

'Draw court outline

objRectangle = New Rectangle(x:=iXAdjustment, y:=iYAdjustment, Width:=380, Height:=220)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Draw stat box outline

objRectangle = New Rectangle(x:=iXAdjustment + 380, y:=iYAdjustment, Width:=380, Height:=220)

'Draw the Period Title

strPeriodHeader = "Period " & I

'stringFormat.LineAlignment = StringAlignment.Near

objFont = New Font("Tahoma", 12, FontStyle.Underline, GraphicsUnit.Point)

objGraphics.DrawString(strPeriodHeader, objFont, Brushes.Black, objRectangle, stringFormat)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Draw the top of the key

objRectangle = New Rectangle(x:=iXAdjustment + 137, y:=iYAdjustment + 52, Width:=100, Height:=100)

objGraphics.DrawPie(pen:=objPen, rect:=objRectangle, _

startAngle:=0, sweepAngle:=180)

'DRAW THE PAINT

'Draw the 3 second area

objRectangle = New Rectangle(x:=iXAdjustment + 137, y:=iYAdjustment, Width:=100, Height:=102)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Left Block

objPen.Width = 3

objRectangle = New Rectangle(x:=iXAdjustment + 126, y:=iYAdjustment + 30, Width:=8, Height:=3)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Right Block

objRectangle = New Rectangle(x:=iXAdjustment + 240, y:=iYAdjustment + 30, Width:=8, Height:=3)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

objPen.Width = 1

'Left 1st thin

objRectangle = New Rectangle(x:=iXAdjustment + 125, y:=iYAdjustment + 47, Width:=10, Height:=1)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Right 1st thin

objRectangle = New Rectangle(x:=iXAdjustment + 239, y:=iYAdjustment + 47, Width:=10, Height:=1)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Left 2nd thin

objRectangle = New Rectangle(x:=iXAdjustment + 125, y:=iYAdjustment + 62, Width:=10, Height:=1)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Right 2nd thin

objRectangle = New Rectangle(x:=iXAdjustment + 239, y:=iYAdjustment + 62, Width:=10, Height:=1)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Left 3rd thin

objRectangle = New Rectangle(x:=iXAdjustment + 125, y:=iYAdjustment + 77, Width:=10, Height:=1)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Right 3rd thin

objRectangle = New Rectangle(x:=iXAdjustment + 239, y:=iYAdjustment + 77, Width:=10, Height:=1)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

objPen.Width = 3

'Draw the 3 point line, High School

objRectangle = New Rectangle(x:=iXAdjustment + 32, y:=iYAdjustment - 155, Width:=310, Height:=310)

objGraphics.DrawPie(pen:=objPen, rect:=objRectangle, _

startAngle:=0, sweepAngle:=180)

'DRAW THE BASKETBALL GOAL

'Draw the backboard

objRectangle = New Rectangle(x:=iXAdjustment + 167, y:=iYAdjustment + 7, Width:=40, Height:=1)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Draw the back of the rim

objRectangle = New Rectangle(x:=iXAdjustment + 184, y:=iYAdjustment + 10, Width:=6, Height:=3)

objGraphics.DrawRectangle(pen:=objPen, rect:=objRectangle)

'Draw the rim

objGraphics.DrawEllipse(pen:=New Pen(Color.Black, Width:=2), _

rect:=New Rectangle(x:=iXAdjustment + 178, y:=iYAdjustment + 13, Width:=18, Height:=18))

Next

'Create Document Footer

objFont = New Font("Tahoma", 8, FontStyle.Regular, GraphicsUnit.Point)

objRectangle = New Rectangle(x:=0, y:=1055, Width:=e.PageBounds.Right, Height:=20)

'Draw the Header

objGraphics.DrawString("Page 1", objFont, Brushes.Black, objRectangle, stringFormat)

End Using



e.HasMorePages = False

End Sub