Click here to Skip to main content
15,909,953 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Determining Object Types Pin
hrodberaht11-Oct-06 2:09
hrodberaht11-Oct-06 2:09 
Questionhow can imake this functions Pin
nbulut9-Oct-06 22:41
nbulut9-Oct-06 22:41 
AnswerRe: how can imake this functions Pin
hrodberaht10-Oct-06 0:00
hrodberaht10-Oct-06 0:00 
Questioncheck box in VB6 Pin
kami959-Oct-06 22:30
kami959-Oct-06 22:30 
AnswerRe: check box in VB6 Pin
Kschuler10-Oct-06 8:36
Kschuler10-Oct-06 8:36 
GeneralRe: check box in VB6 Pin
kami9510-Oct-06 10:42
kami9510-Oct-06 10:42 
GeneralRe: check box in VB6 Pin
Kschuler10-Oct-06 10:52
Kschuler10-Oct-06 10:52 
AnswerRe: check box in VB6 Pin
bushliu10-Oct-06 16:47
bushliu10-Oct-06 16:47 
Smile | :) '//IDE: Visual Basic 6.0
'//My method:
'//First you must declare 5 boolean variables,
'//and Connect Database and read your 5 field that value put in 5 boolean variables,like this..
Dim blnID as Boolean
Dim blnDriverLice as Boolean
Dim blnPassNo as Boolean
Dim blnBirthCert as Boolean
Dim blnBankAcct as Boolean

'//Declare a count variable and initialize it
Dim intCheckedCount as integer
intCheckedCount=0

'//Omit db connection code...
'//Provided that your recordset is rs then
'//read field value from db like this
blnID=rs!ID
blnDriverLice=rs!Driver Licence
blnPassNo=rs!Passport No
blnBirthCert=rs!Birth Certificate
blnBankAcct=rs!Bank Account

'//If checked then count
If(blnID) Then intCheckedCount=intCheckedCount+1
If(blnDriverLice) Then intCheckedCount=intCheckedCount+1
If(blnPassNo) Then intCheckedCount=intCheckedCount+1
If(blnBirthCert) Then intCheckedCount=intCheckedCount+1
If(blnBankAcct) Then intCheckedCount=intCheckedCount+1

If(intCheckedCount>=2) Then
Lbl1.BackColor = RGB(255, 0, 0)
Else
Lbl2.BackColor = RGB(255, 255, 0)
End If
'//Finish

-- modified at 22:53 Tuesday 10th October, 2006
QuestionMicrosoft.Office.Interop.*.dll Pin
zenithmaximus9-Oct-06 22:01
zenithmaximus9-Oct-06 22:01 
Questiona huge Dataset? Pin
jlabrou_deleted9-Oct-06 21:15
jlabrou_deleted9-Oct-06 21:15 
AnswerRe: a huge Dataset? Pin
Colin Angus Mackay10-Oct-06 0:56
Colin Angus Mackay10-Oct-06 0:56 
QuestionHow to find width and height of font object? Pin
Krishnaraj Barvathaya B9-Oct-06 20:56
Krishnaraj Barvathaya B9-Oct-06 20:56 
AnswerRe: How to find width and height of font object? Pin
Dave Kreskowiak10-Oct-06 5:14
mveDave Kreskowiak10-Oct-06 5:14 
Questionform transperancy in vb Pin
suryapraba9-Oct-06 19:13
suryapraba9-Oct-06 19:13 
AnswerRe: form transperancy in vb Pin
Dave Kreskowiak10-Oct-06 5:00
mveDave Kreskowiak10-Oct-06 5:00 
QuestionDICOM image in picture box Pin
iamalik9-Oct-06 19:04
professionaliamalik9-Oct-06 19:04 
AnswerRe: DICOM image in picture box Pin
Dave Kreskowiak10-Oct-06 4:58
mveDave Kreskowiak10-Oct-06 4:58 
GeneralRe: DICOM image in picture box Pin
iamalik10-Oct-06 18:09
professionaliamalik10-Oct-06 18:09 
GeneralRe: DICOM image in picture box Pin
Dave Kreskowiak11-Oct-06 1:50
mveDave Kreskowiak11-Oct-06 1:50 
QuestionEmbedding Firefox Pin
UltraCoder9-Oct-06 18:10
UltraCoder9-Oct-06 18:10 
AnswerRe: Embedding Firefox Pin
Dave Kreskowiak10-Oct-06 4:56
mveDave Kreskowiak10-Oct-06 4:56 
QuestionProcessor Information Pin
UltraCoder9-Oct-06 18:06
UltraCoder9-Oct-06 18:06 
AnswerRe: Processor Information Pin
Dave Kreskowiak10-Oct-06 4:55
mveDave Kreskowiak10-Oct-06 4:55 
QuestionTable adapter help Pin
ranro20069-Oct-06 17:08
ranro20069-Oct-06 17:08 
AnswerRe: Table adapter help Pin
Colin Angus Mackay10-Oct-06 0:59
Colin Angus Mackay10-Oct-06 0:59 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.