How To Get An Advance Queue Number For Any Transactions In PS Bank? One of the best service in PS Bank for me is the Advance Queue Number for any transactions. To avail this service just follow the steps below. 1. Go to the PS Bank website and Click the Queue Anywhere icon. Or go directly to PSBank Lobby Manageme…
Enumerate COM Ports using VB.net Public Function foo () As Integer Try Dim searcher As New ManagementObjectSearcher ( _ "root\CIMV2" , _ "SELECT * FROM Win32_SerialPort" ) For Each queryObj As ManagementObject In searcher . Get () …
MsgBox("Modal Message", MsgBoxStyle.SystemModal + MsgBoxStyle.Exclamation, "VB.Net Message Box Modal")
How To Embed Windows Media Player In Windows Form Using VB.Net 1. Go to "Tool Box" pane then right click 2. Select "Choose Items..." 3. Click "COM Components" tab 4. Select/Check the "Windows Media Player" component 5. Click OK 6. Drag the component "Windows Media P…
Function Get Movie Duration(ByVal MovieFullPath As String) As String If File.Exists(MovieFullPath) Then Dim objShell As Object = CreateObject("Shell.Application") Dim objFolder As Object = _ objShell.Namespace(Path.GetDirectoryName(MovieFullPath)) …
VB 6 Combo box with value and text 1. Add component Microsoft Forms 2.0 2. EngMatchFrm.CmbEngComponent.Clear EngMatchFrm.CmbEngComponent.ColumnCount = 2 EngMatchFrm.CmbEngComponent.ColumnWidths = "0 in; 2 in" Dim i As Integer i = 0 While Not rstComp.EOF EngMatchFrm.CmbEngCompo…
Code in getting the windows user's fullname. Dim strComputer As String Dim strUserName As String Dim objUser As Object strComputer = "ComputerName" strUserName = "UserName Set objUser = GetObject("WinNT://" & strComputer & "/" & strUserName) msgbox objUser.Fu…
VB Send Email with a HTML Format body Private Sub Command1_Click() Dim EmailList, Mailbod As String, Myfile Dim objOutlook As Outlook.Application Dim newapp As Outlook.MailItem, objRecip As Outlook.Recipient Dim objRWhtm As Outlook.Attachment Dim StrBody As String Dim Myfile As String StrBody="<font …
