https://www.startvbdotnet.com/forms/form4.aspx
Topic: Information
———
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