Create English Khmer Dictionary in Visual Basic 6

This article shows you how to create English-Khmer dictionary in Visual Basic 6.

Read More…

How to Save Image into MS-Access 2003 from Visual Basic 6

This article is a sample of saving image from Visual Basic 6 into Microsoft Access Database.

• Create New Project in VB6: Project1
• Create New Form: Form1
• Draw Controls on Form as following:
  • One TextBox Control
  • One Image Control
  • Two Command Controls for Save and Close
  • Two Command Controls for Browse and Remove Image
  • One Command Control to Get data back from Database with the text enter TextBox Control
• Add Component: Microsoft Command Dialog Control 6.0
• See Image below

Read More…

How to Open Report in Microsoft Access from Visual Basic 6

This sample shows you how to open report in Microsoft Access from Microsoft Visual Basic 6 coding.

• Required Reference: Microsoft Access x.x Object Library
  How to add reference: Project -> References -> (Tick) Microsoft Access x.x Object Library)
• x.x is the version of Microsoft Access that can be 11.0, 12.0, etc.

More detail click here

Ref: www.setha.info

Create Dictionary English-English in Turbo C++

This article shows how to create dictionary of English-English-Khmer in Turbo C++ programming language. From this sample, you will see how to:

• Use graphic mode in Turbo C++
• Use mouse pointer in Turbo C++
• Create user interface looks seemly like the GUI (graphic user interface) in windows application too like button style, menu style, scroll bar, etc. which are fully drawn by coding in Turbo C++.
• Use Object Oriented Programming in Turbo C++

Click on Image Below to Download Source Code

Ref: www.setha.info

VB Programming: MSHFlexGrid Input TextBox in VB6

This sample shows how to use input text box and check box in MHSFlexGrid Control in VB6. Normally, we cannot entry value directly into MHSFlexGrid’s cells, so we need to create our own textbox and place to each cell programmatically to entry value or change value of the MHSFlexGrid’s cells.

Click on Image Below to Download Source Code




Ref: www.setha.info

VB Programming: Drive Show and Folder Show in VB6

This is VB6 sample code use to show all drives exist in your computer. Drill down or expand each drive to see more folders and files.

Click on image below to download this sample:



Ref: www.setha.info

VB Programming: Create Hang Man Game

Hang Man is a type of Word Guessing Game use to guess one word by offering letter by letter whether it exists in a guessing word or not. If the offering letter does not exists in the guessing word each part of human body will place to be hanged.

This is a sample code programmed in Visual Basic 6 to create the Hang Man Game.

Download Source Code

VB Programming: Convert Number to English Word

How to convert number into English word in VB6 or VBA Programming?

This sample is a conversion of the number into English word which coded in VB6 programming (also support VBA programming). It supports a large range of numbers start from 0 (zero), 10 (ten), 100 (hundred), 1000 (thousand) , 1000 000 (million), 1000 000 000 (billion), 1000 000 000 000 (trillion) until 1000 000 000 000 000 000 000 (sextillion).

Download Source and More Detail Here

VB6 Connect to MS-Access with Password

Dim db As New ADODB.Connection
Dim rec As New ADODB.Recordset
Dim recCount As Integer
db.ConnectionString = “Provider=MSDASQL.1;Persist Security Info=False;” & _
                        “Data Source=MS Access Database;” & _
                        “Initial Catalog=” & App.Path & “\dbstudent.mdb; Password=12345“
db.Open
 
rec.Open “SELECT * FROM tblStudent ORDER BY [name]“, db, 3, 2
   
recCount = rec.RecordCount

……………………………………….

http://www.krookroo.com/programming-languages/ms-visual-basic-6/86-it-vb6-6.html

Create Hang Man Game in Visual Basic 6

   

    ———————————————–

    Dim i As Integer: i = 1
    Dim isCorrectWord As Boolean: isCorrectWord = False
    Dim MyWord As String
   
    While Mid(MyStr, i, 1) & “” <> “”
        If Mid(MyStr, i, 1) = Right(txtLetter.Text, 1) Then
           MyWord = MyWord & Right(txtLetter.Text, 1)
           If Mid(lblWordGuess.Caption, i, 1) <> _
              Right(txtLetter.Text, 1) Then _
                isCorrectWord = True
        Else
            MyWord = MyWord & Mid(lblWordGuess.Caption, i, 1)
        End If
        i = i + 1
    Wend
    txtTotalGuess = txtTotalGuess + 1
    If Not isCorrectWord Then
        txtWrongGuess = txtWrongGuess + 1
        If txtWrongGuess = 1 Then shapeHead.Visible = True
        If txtWrongGuess = 2 Then
           lineEye1.Visible = True: lineEye2.Visible = True
           lineEye3.Visible = True: lineEye4.Visible = True
           lineNose.Visible = True: lineMouth.Visible = True
        End If
        If txtWrongGuess = 3 Then lineNeck.Visible = True
        If txtWrongGuess = 4 Then lineHandL.Visible = True
        If txtWrongGuess = 5 Then lineHandR.Visible = True
        If txtWrongGuess = 6 Then lineBody.Visible = True
        If txtWrongGuess = 7 Then lineLegL.Visible = True
        If txtWrongGuess = 8 Then lineLegR.Visible = True
    End If

—————————————————

អានលម្អិតនៅខាងក្រោមនេះ
http://www.krookroo.com/programming-languages/ms-visual-basic-6/85-it-vb6-4.html