DEV Community: vblover programmer

Using Project's Embedded Resource Items By EmbedRes Reference

vblover programmer — Sun, 02 Nov 2025 13:58:54 +0000

You can use this reference for using Embedded Resource Items of your project As Easy for example

Me.RichRTextBox1.Text = EmbeddedResource.Document("Text1.txt")

you can also use this reference for Bitmaps(Png,ico,jpg) and Audios(mp3,wav,...) or any Embedded Resource Items...

https://github.com/vbloverprogrammer/EmbedRes

Asp.Net: Send Information To another page (Using Post Method of Form)...

vblover programmer — Sat, 14 Dec 2024 13:29:30 +0000

First Page (body):

<form id="form1" runat="server" method="post" action="Register.aspx" >
        <asp:Panel runat="server" Width="450">
        <asp:Table ID="Table1" runat="server" HorizontalAlign="Center">
        <asp:TableHeaderRow >
        <asp:TableHeaderCell HorizontalAlign="Left" ColumnSpan="2">Your Information:</asp:TableHeaderCell>
        </asp:TableHeaderRow>
        <asp:TableHeaderRow>
        <asp:TableCell Width="70px" HorizontalAlign="Right"></asp:TableCell>
         <asp:TableCell Width="300px" HorizontalAlign="Right"></asp:TableCell>
        </asp:TableHeaderRow>
        <asp:TableRow>
        <asp:TableCell>
        <asp:Label runat="server">Name:</asp:Label>
        </asp:TableCell>
        <asp:TableCell>
         <asp:TextBox ID="FullName" runat="server"  ></asp:TextBox>
        </asp:TableCell>
        </asp:TableRow>
        <asp:TableRow>
        <asp:TableCell>
        <asp:Label ID="Label1" runat="server">Email:</asp:Label>
        </asp:TableCell>
        <asp:TableCell>
        <asp:TextBox ID="Email" runat="server" ></asp:TextBox>
         </asp:TableCell>
        </asp:TableRow>
        <asp:TableRow>
        <asp:TableCell>
        <asp:Label ID="Label2" runat="server">Site:</asp:Label>
        </asp:TableCell>
        <asp:TableCell>
        <asp:TextBox ID="WebSite" runat="server" ></asp:TextBox>
        </asp:TableCell>
        </asp:TableRow>
        <asp:TableRow>
        <asp:TableCell>
        <asp:Label ID="Label3" runat="server">Phone:</asp:Label>
        </asp:TableCell>
        <asp:TableCell>
        <asp:TextBox ID="PhoneNumber" runat="server" ></asp:TextBox>
        </asp:TableCell>
        </asp:TableRow>
        <asp:TableRow>
        <asp:TableCell>
        </asp:TableCell>
    <asp:TableCell HorizontalAlign="left">
       <asp:Button ID="SendData" runat="server" Text="Send Data" UseSubmitBehavior="true" />
    </asp:TableCell>
        </asp:TableRow>
        </asp:Table>
     </asp:Panel>
    </form>

Target(Action) Page (body):

<asp:Panel ID="Panel1" runat="server">
   <asp:Table ID="Table2" runat="server" Width="500px">
    <asp:TableRow>
    <asp:TableCell>
       <asp:Table ID="Table1" runat="server" HorizontalAlign="Center">
        <asp:TableHeaderRow >
        <asp:TableHeaderCell HorizontalAlign="Left" ColumnSpan="2">Your Information is:</asp:TableHeaderCell>
        </asp:TableHeaderRow>
        <asp:TableHeaderRow>
        <asp:TableCell Width="70px" HorizontalAlign="Right"></asp:TableCell>
         <asp:TableCell Width="300px" HorizontalAlign="Right"></asp:TableCell>
        </asp:TableHeaderRow>
        <asp:TableRow>
        <asp:TableCell>
        <asp:Label ID="Label1" runat="server">Name:</asp:Label>
        </asp:TableCell>
        <asp:TableCell>
         <asp:Label ID="FullName" runat="server"><% = Request.Form.Get("FullName")%></asp:Label>
        </asp:TableCell>
        </asp:TableRow>
        <asp:TableRow>
        <asp:TableCell>
        <asp:Label ID="Label2" runat="server">Email:</asp:Label>
        </asp:TableCell>
        <asp:TableCell>
        <asp:Label ID="Email" runat="server" ><% = Request.Form.Get("Email")%></asp:Label>
         </asp:TableCell>
        </asp:TableRow>
        <asp:TableRow>
        <asp:TableCell>
        <asp:Label ID="Label3" runat="server">Site:</asp:Label>
        </asp:TableCell>
        <asp:TableCell>
        <asp:Label ID="WebSite" runat="server" ><% = Request.Form.Get("WebSite")%></asp:Label>
        </asp:TableCell>
        </asp:TableRow>
        <asp:TableRow>
        <asp:TableCell>
        <asp:Label ID="Label4" runat="server">Phone:</asp:Label>
        </asp:TableCell>
        <asp:TableCell>
        <asp:Label ID="PhoneNumber" runat="server" ><% = Request.Form.Get("PhoneNumber") %></asp:Label>
        </asp:TableCell>
        </asp:TableRow>
        </asp:Table>
    </asp:TableCell>
    </asp:TableRow>
      </asp:Table>
</asp:Panel>

Asp .Net: Create a Simple 'Web User Control'

vblover programmer — Wed, 11 Dec 2024 15:28:46 +0000

Web User Control:

<%@ Control Language="vb" AutoEventWireup="false" CodeBehind="NewUserControl.ascx.vb" Inherits="MyProjectsWebApplication.NewUserControl" %>
<asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>

Create Property for 'Web User Control':

Public Class NewUserControl
    Inherits System.Web.UI.UserControl

    Public Property Caption() As String
        Get
            Return Me.Label1.Text
        End Get
        Set(ByVal value As String)
            Me.Label1.Text = value
        End Set
    End Property

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

End Class

Rehister 'Web User Control' at Web-Form:

<%@ Register TagPrefix="UC" TagName="NewUserControl" Src="~/NewUserControl.ascx"  %>

Using 'Web User Cotrol' in 'Web-Form':

<asp:Content ID="BodyContent" runat="server" ContentPlaceHolderID="MainContent">
  <UC:NewUserControl runat="server" Caption="My First Web User Control" />
</asp:Content>

VB .Net: Secure Password

vblover programmer — Mon, 09 Dec 2024 02:22:57 +0000

SecurePassword Class:

Imports System.Text
Imports System.Security.Cryptography
Public Class SecurePassword
    Protected Friend Shared Function GetMd5Hash(ByVal input As String) As String
        ' Create a new instance of the MD5 object.
        Dim md5Hasher As MD5 = MD5.Create()
        ' Convert the input string to a byte array and compute the hash.
        Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input))
        ' Create a new Stringbuilder to collect the bytes
        ' and create a string.
        Dim sBuilder As New StringBuilder()
        ' Loop through each byte of the hashed data 
        ' and format each one as a hexadecimal string.
        Dim i As Integer
        For i = 0 To data.Length - 1
            sBuilder.Append(data(i).ToString("x2"))
        Next i
        ' Return the hexadecimal string.
        Return sBuilder.ToString()
    End Function
    ' Verify a hash against a string.
    Protected Friend Shared Function verifyMd5Hash(ByVal input As String, ByVal hash As String) As Boolean
        ' Hash the input.
        Dim hashOfInput As String = getMd5Hash(input)
        ' Create a StringComparer an compare the hashes.
        Dim comparer As StringComparer = StringComparer.OrdinalIgnoreCase
        If comparer.Compare(hashOfInput, hash) = 0 Then Return True
            Return False
     End Function
End Class

Using for password property to save:

   Public ReadOnly Property Password() As String
        Get
            Return SecurePassword.GetMd5Hash(ConfirmPasswordBox.Text)
        End Get
    End Property

Check for password correction:

If SecurePassword.verifyMd5Hash(Me.PasswordBox.Text,
UserAccount(Me.ID).Password) = False Then
                        Me.PasswordBox.Text = ""
                        .SetError(Me.PasswordBox, "Wrong Password!")
                        Me.PasswordBox.Focus()
                        Me.PasswordBox.Select()
                        Exit Sub
                    End If

C#: Secure Password

vblover programmer — Sun, 08 Dec 2024 12:22:52 +0000

SecurePassword Class:

using System;
using System.Text;
using System.Security.Cryptography;
namespace UserAccountSystem.Class
{
   public static class SecurePassword
    {
       public static String GetMd5Hash(String input)
    {
        MD5 md5Hasher = MD5.Create();
        byte[] data = md5Hasher.ComputeHash(Encoding.Default.GetBytes(input));
         StringBuilder sBuilder = new StringBuilder();
         for (int i = 0; i < data.Length ; i++)
         {
             sBuilder.Append(data[i].ToString("x2"));
         }
        return sBuilder.ToString();
    }
       public static bool verifyMd5Hash(String input, String hash) 
     {
         String hashOfInput = GetMd5Hash(input);
         StringComparer comparer= StringComparer.OrdinalIgnoreCase;
         if (hashOfInput.CompareTo(hash) == 0) {
         return true;
         }
         return false;
     }
    }
}

Using for password property to save:

public String Password()
        { return Class.SecurePassword.GetMd5Hash(this.ConfirmPasswordBox.Value); }

check for password correction:

if (Class.SecurePassword.verifyMd5Hash(this.PasswordBox.Value,UserAccount.TableAdapter.GetPassword(this.ID)) == false)
                    {
                        this.PasswordBox.Value = "";
                        this.ConfirmPasswordBox.Value = "";
                        errorProvider1.SetError(this.PasswordBox, "Wrong Password!");
                        this.PasswordBox.Focus();
                        this.PasswordBox.Select();
                        return; 
                    }

(VB .Net): Using Local Font Files

vblover programmer — Fri, 22 Nov 2024 15:26:58 +0000

Imports System.Drawing.Text
Public Class Form1
    Dim Collection As New PrivateFontCollection
     Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        For Each File As String In IO.Directory.GetFiles(".\Fonts", "*.ttf")
            Collection.AddFontFile(File)
        Next
        Me.Font = New Font(Collection.Families(0), 12, FontStyle.Bold)
        Me.Label2.Font = New Font(Collection.Families(1), 12, FontStyle.Bold)
    End Sub
End Class

VB .Net: PasswordFromKeys

vblover programmer — Tue, 12 Nov 2024 13:46:33 +0000

Method:

    Function PasswordFromKeys() As String
        Dim Key As ConsoleKeyInfo
        Dim Expr As String = ""
        Do
            Key = Console.ReadKey(True)
            Select Case Key.Key
                Case ConsoleKey.Enter
                    Exit Do
                Case ConsoleKey.Escape
                    Return ""
                Case ConsoleKey.Backspace
                    If Expr.Length = 0 Then Continue Do
                    Expr = Expr.Remove(Expr.Length - 1, 1)
                    Console.Write("{0} {0}", Key.KeyChar)
                Case ConsoleKey.NumPad0 To ConsoleKey.NumPad9,
                     ConsoleKey.D0 To ConsoleKey.D9,
                     ConsoleKey.A To ConsoleKey.Z
                    Expr += Key.KeyChar
                    Console.Write("*")
                Case Else
                    Continue Do
            End Select
        Loop
        Return Expr
    End Function

Using:

Console.ForegroundColor = ConsoleColor.White
Console.Write("{0} Type Password: ", vbTab)
Console.ForegroundColor = ConsoleColor.Green
Dim Password As String = PasswordFromKeys()
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.White
Console.Write("{0} Your Password is: ", vbTab)
Console.ForegroundColor = ConsoleColor.Green
Console.WriteLine("{0}", Password)

VB .Net: TryAgainQuestionForExistItem

vblover programmer — Sat, 09 Nov 2024 02:40:33 +0000

    Function TryAgainQuestionForExistItem(ItemName As String, ID As Object) As Boolean
        Console.Clear()
        Console.WriteLine()
        Console.ForegroundColor = ConsoleColor.Red
        Console.WriteLine("{0} {1} already Exists, with same ID: ({2})!", vbTab, ItemName, ID)
        Console.ForegroundColor = ConsoleColor.Yellow
        Console.WriteLine("{0} Do you want to try again?", vbTab)
        Console.ForegroundColor = ConsoleColor.White
        Console.Write("{0} Type Y[es] to Accept: ", vbTab)
        Console.ForegroundColor = ConsoleColor.Gray
        Value = Console.ReadLine
        'If Value.Length = 0 Then Return False
        Select Case Value.Trim.ToLower
            Case "y", "yes"
                Console.Clear()
                Return True
            Case Else
                Return False
        End Select
    End Function

https://aparat.com/v/dvbe180

VB .Net: Get Processor ID

vblover programmer — Fri, 30 Aug 2024 11:43:14 +0000

Hi there....

For make software Activation-code we need A unique ID Like CPU(Processor)-ID

Reference:

System.Management

Namespaces:

Imports System.Management
Imports Microsoft.Win32

GetProcessInfo() Method:

Private Sub GetProcInfo()
        Dim wmi As ManagementClass
        Dim Mobjs As ManagementObjectCollection
        Dim CPUID As String
        Dim CPUType As String
        wmi = New ManagementClass("Win32_Processor")
        Mobjs = wmi.GetInstances()
        For Each Mobj As ManagementObject In Mobjs
            CPUType = Mobj("Name")
            Debug.WriteLine(CPUType.ToString)
            CPUID = Mobj("ProcessorID")
            Debug.WriteLine(CPUID.ToString)
        Next
        Mobjs.Dispose()
        wmi.Dispose()
    End Sub

http://vbcity.com/forums/t/83343.aspx

VB .Net: Find words in String Array Extension Method

vblover programmer — Sun, 25 Aug 2024 15:58:16 +0000

Definition:

 <Extension()>
    Function ExistsIn(value As String, ParamArray FieldValues() As String) As Boolean
        For Each FieldValue As String In FieldValues
            If FieldValue.ToLower.Contains(value.ToLower) Then Return True
        Next
        Return False
    End Function

Usage:

Dim Value As String = "Love"
Debug.Print("{0}",value.ExistsIn("VBLover","vblover","vbloverprogrammer"))

Returns: True

VB .Net: Import NameSpace to Project

vblover programmer — Sat, 24 Aug 2024 04:26:45 +0000

Hi there...

To Import a NameSpace in each CodeFile(Class, Module,...) of project in Visual-Basic we can use Imports KeyWord.

Example:

Imports System.Reflection

By this kind of Import we can use that NameSpace Members just at the current filecode.

But for Use A NameSpace at Project (As General), we need to use the Project Properties....

Steps:

1. Right-Click on Project and Select Properties, to show Project Properties Window.

2. Select 'References' Tab Page....

3.Find each Namespaces at 'Imported Namespaces' Section, you need in your project and Select those to Import in Project....

Note: If you can't find any Namespaces, Using 'Add Reference...' Feature to Add Reference in project then find and select that Namespace at 'Imported Namespaces' Section.

(VB .NET) A Method for Search Values in Several Fields of Entity Framework DataTable

vblover programmer — Mon, 19 Aug 2024 07:20:19 +0000

A Method for Search Values in Several Fields of DataTable by UserAccount Filter for Entity Framework

Declaration:

Public DataEntity As New KeyStoreEntities
Function SearchFor(Of T)(value As String, ParamArray Fields() As String) As Objects.ObjectQuery(Of T)
        ListItemButtons.Clear()
        Dim UserAccountParam As New Objects.ObjectParameter("UserAccount", UserAccount.ToLower)
        Dim SearchValueParam As New Objects.ObjectParameter("Value", "%" + value + "%")


        Dim QueryString As String = String.Format("SELECT VALUE {0} FROM {0} WHERE ({0}.UserAccount = @UserAccount)",
                                                  GetType(T).Name)
        For Each Field As String In Fields
            Dim Operate As String = If(Array.IndexOf(Fields, Field) = 0, "AND", "OR")
            QueryString += String.Format(" {0} {1}.{2} LIKE @Value", Operate, GetType(T).Name, Field)
        Next
        Return DataEntity.CreateQuery(Of T)(QueryString, UserAccountParam, SearchValueParam)
    End Function

KeyStoreEntities Is Type of Database (in Entity Framework)

Using:

Dim ListItems As Objects.ObjectQuery(Of Websites) =
                            SearchFor(Of Websites)(UserAccount, Me.ToolStripTextBox1.Text, "Title", "Address", "MailBox",
                                                        "UserName")

Websites is Type of Table (in Entity Framework)