Xây dựng ứng dụng VB để chơi nhạc

Sau đây là qui trình điển hình để xây dựng 1 ứng dụng VB 6.0 nhỏ demo việc chọn file multimedia để chơi bằng đối tượng Windows Media Player:

1. chạy VB 6.0, khi cửa sổ “New project” hiển thị, chọn icon “Standard EXE” rồi button Open để tạo mới Project chứa Form đơn giản.

2. chọn menu Project.Components để hiển thị cửa sổ Components, duyệt tìm và chọn 2 thư viện có tên là “Microsoft Forms 2 Object Library” và “Windows Media Player” rồi OK để thêm các điều khiển trong 2 thư viện này vào ToolBox của Project hiện hành.

3. Chọn Form để hiển thị cửa sổ Properties của nó lên, duyệt tìm trong danh sách mục Font, thay đổi tên font thành “Tahoma” hay tên 1 font nào đó mà bạn chắc chắn hỗ trợ tốt tiếng Việt Unicode.

4. vẽ Form có 1 TextBox (của Form2) tên là txtFileName, 1 button tên là btnStart, và 1 điều khiển Windows Media Player có tên là WMP1 như sau:

5. Nhấn đúp chuột vào button Start để tạo thủ tục xử lý Click chuột trên button và viết code như sau:

Private Sub btnStart_Click()
WMP1.URL = txtFileName.Text
End Sub

6. Chọn menu Run.Start để chạy thử ứng dụng. Khi form ứng dụng hiển thị, hãy nhập thử chuỗi Unicode miêu tả đường dẫn nhận dạng 1 file multimedia nào đó cần chơi (thí dụ c:Tệp bài hát Tiếng đàn Sinh viên.mp3) rồi ấn button Start để chơi file này.

Theo pcworld

Nguồn : Xây dựng ứng dụng VB để chơi nhạc

Read More

Code mã hoá VB

Sau đây chúng tôi xin chia sẻ code mã hóa VB

Function Encrypt(ByVal inpt As String) As String

Dim temp As String

Dim tempA As String

Dim Rand As String

100:

Randomize

Rand = Right(Rnd, 3)

rad = Left(Rand, 1)

If Left(Rand, 1) = ''-'' Then

GoTo 100

End If

For i = 1 To Len(inpt)

crntASC = Asc(Mid(inpt, i, 1))

tempA = ((crntASC) Xor (Rand + i + rad)) + (i + rad)

If Len(tempA) = 4 Then

temp = temp & tempA

ElseIf Len(tempA) = 3 Then

temp = temp & ''0'' & tempA

ElseIf Len(tempA) = 2 Then

temp = temp & ''00'' & tempA

ElseIf Len(tempA) = 1 Then

temp = temp & ''000'' & tempA

End If

Next i

temp = Rand & temp

Encrypt = temp

End Function

Function Decrypt(ByVal inpt As String) As String

Rand = Left(inpt, 3)

For i = 4 To (Len(inpt) - 3) Step 4

z = z + 1

tempA = Mid(inpt, i, 4)

tempA = ((tempA - (z + Left(Rand, 1))) Xor (Rand + z + Left(Rand, 1)))

temp = temp & Chr(tempA)

Next i

Decrypt = temp

End Function
Theo diễn đàn tin học
Nguồn : Code mã hoá VB


Read More

SCROLL WORDS trong VB

Để test thử bạn tạo một command button vào một form và sử dụng code sau dưới một timer object:

Public Sub ScrollWords(ByVal StringToScroll$, ByVal TargetObjectCaption As Object)

Static S%

On Error GoTo ErrorHandler:

If S <>Then

TargetObjectCaption.Caption = TargetObjectCaption.Caption & Mid(StringToScroll, S + 1, 1)

S = S + 1

Else

TargetObjectCaption.Caption = ''''

S = 0

End If

Exit Sub

ErrorHandler:

MsgBox ''Error: '' & Err.Description, vbCritical + vbOKOnly, ''Error '' & Err.Number & '' in ScrollWords!''

End Sub
Theo : Diễn đàn tin học
Nguồn bài viết : SCROLL WORDS trong VB


Read More

Chuyển mục chọn trên Menu chính sang góc phải trong VB

Theo mặc định thì thanh menu chính luôn nằm ở góc bên phải. Và VB cũng không cung cấp cho chúng ta bất cứ thuộc tính gì để đưa nó sang bên phải. Nhưng với API bạn có thể dễ dàng làm được điều này.

1.Hãy tạo một Form mới, Sau đó Click vào Tools –> Menu Editor để thêm vào chương trình 3 menu chính còn các menu con thì tùy ý.
2. Dùng đoạn Code sau :
Private Declare Function GetMenu Lib ''user32'' (ByVal hwnd As Long) As Long
Private Declare Function ModifyMenu Lib ''user32'' Alias ''ModifyMenuA'' (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
Private Declare Function DrawMenuBar Lib ''user32'' (ByVal hwnd As Long) As Long

Private Const MF_BYPOSITION = &H400&
Private Const MF_HELP = &H4000&

Private Sub Form_Load()
res = GetMenu(Me.hwnd) ' Lấy Handle của Menu
ModifyMenu res, 2, MF_BYPOSITION Or MF_HELP, 2, ''&Help''
DrawMenuBar Me.hwnd ' Vẽ lại Menu Bar
End Sub

Nguồn : Thanglong-Aptech

Read More

Sử dụng hàm API vô hiệu DeskTop trong VB

Hôm nay chúng tôi tiếp tục giới thiệu với các bạn một ví dụ về cách sử dụng hàm API trong VB.Bạn có muốn làm cho Desktop bị ”tê liệt” không? Bạn hoàn toàn có thể vì Desktop cũng là một cửa sổ như bao chương trình khác, điều bạn cần biết là class name của nó ”Progman”.

Option Explicit
DefLng A-Z
Declare Function FindWindowEx Lib ''user32'' _
Alias ''FindWindowExA'' (ByVal hWnd As Long, _
ByVal hWndChild As Long, ByVal lpszClassName As String, _
ByVal lpszWindow As String) As Long
Declare Function ShowWindow Lib ''user32'' _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Public Const g_cstrShellViewWnd As String = ''Progman''

Sau đó thêm vào Project hai button và đoạn code sau:

Option Explicit
DefLng A-Z

Private Function FindShellWindow() As Long
'Hàm dùng để lấy Handle của Desktop
Dim hWnd As Long
On Error Resume Next
hWnd = FindWindowEx(0&, 0&, g_cstrShellViewWnd, vbNullString)
If hWnd <> 0 Then
FindShellWindow = hWnd
End If
End Function

Private Sub HideShowWindow(ByVal hWnd As Long, Optional ByVal Hide As Boolean = False)
Dim lngShowCmd As Long
On Error Resume Next
If Hide = True Then
lngShowCmd = SW_HIDE
Else
lngShowCmd = SW_SHOW
End If
Call ShowWindow(hWnd, lngShowCmd)
End Sub

Private Sub command2_Click()
Dim hWnd As Long
On Error Resume Next
hWnd = FindShellWindow()
If hWnd <> 0 Then
Call HideShowWindow(hWnd)
End If
End Sub

Private Sub command1_Click()
Dim hWnd As Long
On Error Resume Next
hWnd = FindShellWindow()
If hWnd <> 0 Then
Call HideShowWindow(hWnd, True)
End If
End Sub

Private Sub Form_Load()
Command1.Caption = ''Hide Desktop''
Command2.Caption = ''Show Desktop''
End Sub

Nguồn : Thanglong-Aptech.com

Read More

Làm ẩn nút Start của Window trong VB

Các sức mạnh tiềm ẩn của VB nằm ở việc thao tác với các hàm WinAPI. Bạn có thể làm bất cứ việc gì nếu hiểu và nắm được cách sử dụng các hàm API. Ví dụ bạn có thể làm cho nút Start của Windows biến mất một các

Const SWP_HIDEWINDOW = &H80

Const SWP_SHOWWINDOW = &H40

Const GW_CHILD = 5

Const GW_HWNDNEXT = 2

Private Declare Function SetWindowPos Lib ''user32'' (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindow Lib ''user32'' Alias ''FindWindowA'' (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindow Lib ''user32'' (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function GetClassName Lib ''user32'' Alias ''GetClassNameA'' (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Dim tWnd As Long, bWnd As Long, sSave As String * 250

Private Sub Form_Load()

tWnd = FindWindow(''Shell_traywnd'', vbNullString)

bWnd = GetWindow(tWnd, GW_CHILD)

Do

GetClassName bWnd, sSave, 250

If LCase(Left$(sSave, 6)) = ''button'' Then Exit Do

bWnd = GetWindow(bWnd, GW_HWNDNEXT)

Loop

'Ẩn start button

SetWindowPos bWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW

End Sub

Private Sub Form_Unload(Cancel As Integer)

'hiện lại start button

SetWindowPos bWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW

End Sub

Nguồn : thanglong-aptech

Read More