Visual Studio Code

Contact US

0 10:42 AM

Contact US

hazratalitukhi@gmail.com

About Us

0 10:40 AM

About Us

This blog about free Visual Basic and HTML CSS Coding to help you. we have placed here free coding which you can use in your project and w...

How To Redirect Page After Some Time In Javascript

0 12:08 PM

How To Redirect Page After Some Time In Javascript

For current page For open in new tab

Drop down Link Html Open In New Window

0 12:22 PM

<pre><span name="" point-size="18" style="background-color: #eff0f1; color: #7d2727; font-size: 16px; font-weight: bold;">
<xmp>
<form name="George">
<p><select id="select" onchange="window.open(this.options[this.selectedIndex].value);" size="1"width="350" style=" width: 350px; height:30PX; font-size: 15px;color: #005462;font-weight: bold;" onchange="go()">>
<option value="http://www.cnet.com;" />Select Here
<option 
value="https://www.google.com/" />Link Name1
<option 
value="https://www.yahoo.com/" />Link Name2
<option 
value="https://www.google.com/" />Link Name3
<option 
value="https://www.google.com/" />Link Name4
<option 
value="https://www.google.com/" />Link Name5
<option 
value="https://www.google.com/" />Link Name6
</select></p>
 <script type="text/javascript">

</script>

</form>
</!doctype>

</xmp>

<html>
<head>
<style>
.button {
  background-color: #4CAF50;
  border: none;
  color: white;
  padding: 15px 32px;
  text-align: center;
  text-decoration: none;
  display: inline-block;
  font-size: 20px;
  margin: 4px 2px;
  cursor: pointer;
}
</style>
</head>
<body>
<input onclick="window.open('https://inpagefree.blogspot.com/2021/11/panaflex-design-background.html')"type="button" class="button" value="Copy Code">
</body>
</html>

Drop down Link Html Open In New Window

> Select Here Link Name1 Link Name2 Link Name3 Link Name4 Link Name5 Link Name6

Drop down Link Html Open In Current Window

0 11:58 AM

<pre><span name="" point-size="18" style="background-color: #eff0f1; color: #7d2727; font-size: 16px; font-weight: bold;">
<xmp>
<form name="George">
<p><select name="example" size="1"width="350" style=" width: 350px; font-size: 15px;color: #005462;font-weight: bold;" onchange="go()">
<option value="http://www.cnet.com;" />Select Here
<option 
value="https://www.google.com/" />Link Name1
<option 
value="https://www.yahoo.com/" />Link Name2
<option 
value="https://www.google.com/" />Link Name3
<option 
value="https://www.google.com/" />Link Name4
<option 
value="https://www.google.com/" />Link Name5
<option 
value="https://www.google.com/" />Link Name6
</select></p>
 
<script type="text/javascript">

</script>

</form>

</xmp>

Drop down Link Html Open In Current Window

Select Here Link Name1 Link Name2 Link Name3 Link Name4 Link Name5 Link Name6 \

create analog clock in vb.net

1 1:05 AM

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjczjZp8MhDI0WuLk9y9Yah1mknK93XyNtpyxi_X9IcYPqQews3Ht-WFgQV0MIxwS3lKTIzuCjF-byhWW0PbpjbMwf19VfmW7go77dyPpds0wlpLMJ4_JzMKlbRPPgMohxd8QXvOxLdxzg/s1600/cccccccccc1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="create analog clock in vb.net" border="0" data-original-height="349" data-original-width="329" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjczjZp8MhDI0WuLk9y9Yah1mknK93XyNtpyxi_X9IcYPqQews3Ht-WFgQV0MIxwS3lKTIzuCjF-byhWW0PbpjbMwf19VfmW7go77dyPpds0wlpLMJ4_JzMKlbRPPgMohxd8QXvOxLdxzg/s400/cccccccccc1.jpg" title="create analog clock in vb.net" width="376" /></a></div>
<pre><span name="" point-size="18" style="background-color: #eff0f1; color: #7d2727; font-size: 18px; font-weight: bold;">
Imports System.Drawing.Drawing2D

Public Class Form1
    Dim Minute1 As Bitmap
    Dim Second1 As Bitmap
    Dim HourP As Bitmap
    Dim Height1, Width1 As Integer

Friend WithEvents PictureBox1 As New System.Windows.Forms.PictureBox
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.Size = New Size(316, 338)
        Me.Timer1.Interval = 1000
        Me.Timer1.Enabled = True
        Me.PictureBox1.BackColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.PictureBox1.Location = New System.Drawing.Point(-1, 0)
        Me.PictureBox1.Name = "PictureBox1"
        Me.PictureBox1.Size = New System.Drawing.Size(300, 300)
        Me.PictureBox1.TabIndex = 0
        Me.PictureBox1.TabStop = False
        Me.PictureBox1.BackColor = Color.White
        Me.Controls.Add(PictureBox1)
       
        Me.Timer1.Start()
    End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Height1 = PictureBox1.Size.Height
        Width1 = PictureBox1.Size.Width
        Dim TM As Bitmap = New Bitmap(Height1, Width1)
        Dim G As Graphics = Graphics.FromImage(TM)
        PictureBox1.Controls.Clear()
        Dim x1 As Integer = Height1 / 2
        Dim y1 As Integer = Width1 / 2
        G.TranslateTransform(x1, y1)
        'หน้าปัด
        Dim PenBlack As New Pen(Brushes.Red, 5)
        Dim PenGreen As New Pen(Brushes.Green, 4)

For i As Integer = 1 To 60
            G.ResetTransform()
            G.TranslateTransform(x1, y1)
            G.RotateTransform(i * 6)
            G.DrawLine(PenGreen, 0, -131, 0, -135)
        Next
        For i As Integer = 1 To 12
            G.ResetTransform()
            G.TranslateTransform(x1, y1)
            G.RotateTransform(i * 30)
            G.DrawLine(PenBlack, 0, -115, 0, -145)
        Next
        Dim HPen As New Pen(Color.Blue, 15) 'เข็มสั้น
        G.ResetTransform()
        G.TranslateTransform(x1, y1)
        G.RotateTransform(((Now.Hour * 30) + (Now.Minute * 0.5)))
        G.DrawLine(HPen, 0, 20, 0, -100)
        Dim MinPen As New Pen(Color.Black, 10) 'เข็มยาว
        G.ResetTransform()
        G.TranslateTransform(x1, y1)
        G.RotateTransform((((Now.Minute * 60) + Now.Second) * 0.1))
        G.DrawLine(MinPen, 0, 20, 0, -120)
        Dim SecPen As New Pen(Color.Red, 2) 'เข็มวินาที
        G.ResetTransform()
        G.TranslateTransform(x1, y1)
        G.RotateTransform((Now.Second * 6))
        G.DrawLine(SecPen, 0, 20, 0, -138)
        Dim PointPen As New Pen(Color.Black, 2) 'หมุด
        Dim PointPenRed As New Pen(Color.Red, 12)
        G.ResetTransform()
        G.TranslateTransform(x1, y1)
        G.DrawEllipse(PointPenRed, -2, -2, 4, 4)
        G.DrawEllipse(PointPen, -2, -2, 4, 4)
        PictureBox1.Image = TM
        ' it is other coding
        Dim p As New System.Drawing.Pen(Color.Red, 10)
        Dim s As System.Drawing.Graphics
        PictureBox1.Refresh()
        s = PictureBox1.CreateGraphics
        s.DrawEllipse(p, 5, 5, 290, 290)
    End Sub

End Class

create analog clock in vb.net

Imports System.Drawing.Drawing2D Public Class Form1 Dim Minute1 As Bitmap Dim Second1 As Bitmap Dim HourP As Bitmap Dim ...

Datagridview Data Export to Excel In Vb.Net with Save File Dialog

3 9:23 PM

<pre><span name="" point-size="18" style="background-color: #eff0f1; color: #7d2727; font-size: 18px; font-weight: bold;">
Imports System.IO
Imports Excel = Microsoft.Office.Interop.Excel
Public Class Form1
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
                SaveFileDialog1.Filter = "Excel Documents|*.xlsx"
    End Sub
    Public Function ExcelColName(ByVal Col As Integer) As String
        If Col < 0 And Col > 256 Then
            MsgBox("Invalid Argument", MsgBoxStyle.Critical)
            Return Nothing
            Exit Function
        End If
        Dim i As Int16
        Dim r As Int16
        Dim S As String
        If Col <= 26 Then
            S = Chr(Col + 64)
        Else
            r = Col Mod 26
            i = System.Math.Floor(Col / 26)
            If r = 0 Then
                r = 26
                i = i - 1
            End If
            S = Chr(i + 64) & Chr(r + 64)
        End If
        ExcelColName = S
    End Function
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            Dim sheetIndex As Integer
            Dim Ex As Object
            Dim Wb As Object
            Dim Ws As Object
            Ex = CreateObject("Excel.Application")
            Wb = Ex.workbooks.add
            Dim col, row As Integer
            Dim rawData(DataGridView1.Rows.Count, DataGridView1.Columns.Count - 1) As Object
            For col = 0 To DataGridView1.Columns.Count - 1
                rawData(0, col) = DataGridView1.Columns(col).HeaderText.ToUpper
            Next
            For col = 0 To DataGridView1.Columns.Count - 1
                For row = 0 To DataGridView1.Rows.Count - 1
                    rawData(row + 1, col) = DataGridView1.Rows(row).Cells(col).Value
                Next
            Next
            Dim finalColLetter As String = String.Empty
            finalColLetter = ExcelColName(DataGridView1.Columns.Count)
            sheetIndex += 1
            Ws = Wb.Worksheets(sheetIndex)
            Dim excelRange As String = String.Format("A1:{0}{1}", finalColLetter, DataGridView1.Rows.Count + 1)
            Ws.Range(excelRange, Type.Missing).Value2 = rawData
            Ws = Nothing
            Wb.SaveAs(SaveFileDialog1.FileName, Type.Missing, Type.Missing,
         Type.Missing, Type.Missing, Type.Missing, Type.Missing,
         Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing)
            Wb.Close(True, Type.Missing, Type.Missing)
            Wb = Nothing
            ' Release the Application object
            Ex.Quit()
            Ex = Nothing
            ' Collect the unreferenced objects
            GC.Collect()
            MsgBox("Exported Successfully.", MsgBoxStyle.Information)
        End If
    End Sub
End Class

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Save File In .txt (Notepad)
        Dim Save As New SaveFileDialog()
        Dim myStreamWriter As System.IO.StreamWriter
        Save.Filter = "Text [*.txt*]|*.txt"
        Save.CheckPathExists = True
        Save.Title = "Save File"
        Save.ShowDialog(Me)
        Try
            myStreamWriter = System.IO.File.AppendText(Save.FileName)
            myStreamWriter.Write(TextBox1.Text)
            myStreamWriter.Flush()
        Catch ex As Exception
        End Try
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            System.IO.File.WriteAllText(SaveFileDialog1.FileName, TextBox1.Text)
        End If
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SaveFileDialog1.Filter = "Word Documents|*.doc"
    End Sub
End Class
<style>
pre {
   font-family: "Calibri";
   font-size: 10px;
  background-color: #EFF0F1;
}
</style>
</span></pre>

Datagridview Data Export to Excel In Vb.Net with Save File Dialog

Imports System.IO Imports Excel = Microsoft.Office.Interop.Excel Public Class Form1 Private Sub Form1_Load(sender As System.Object, e A...