Visual Basic :: Need Help[Resovled]

{NOT RESOVLED}Login And Out Program{NOT RESOVLED}
Dos any1 know how with this code to make it so that the extension does no show when the file is lada into the combo box

Code:
Dim sTemp As String
    Dim sDirIn As String
     Dim typex, ext
     typex = "*"

    sDirIn = App.Path & "users" ' Change this if you want to specify a path to the folder
    If Not (Right$(sDirIn, 1) = "") Then sDirIn = sDirIn & ""

    On Error Resume Next
    sTemp = Dir$(sDirIn & "*.*")

    Do While sTemp <> ""
   ' if UCase$(Right$(stemp,4)) = ".TXT) then
              Combo1.AddItem sTemp
    ' End If
      sTemp = Dir
    Loop

Also

Say i have a file C: ext.txt with usernames in and a file test2.txt

I want to read the file and if the speffic line in test.txt file equals the paffoc text in the other file(test2.txt)

Eg of txt in files

Test.txt        Test2.txt

User1        password1
User2        password2
User3        password3

Say that if a textbox has the username User3 and the password textbox has the password: password3 then i have an event

BUT

if a textbox has the username User3 and the password textbox has the password: password2 then it have an differnet event

EG MSGBOX "INVALID PASSWORD"

For a log in and out Program

Code:
Open "C: est.txt" For Input As #1
  Do While Not EOF(1)
   Line Input #1, textfile
   Combo1.AddItem textfile
  Loop
Close #1

Thx

------------------------------------------------------------------------------
And when a man gets to heaven,
To saint Paul he'll tell:
1 more soldier reporting sir,
I served My Time in Hell
6 June 1944

2GB DDR400 RAM, 3.4Ghz EM64T P4 Socket 775, 200gb PATA HD 8mb cache, 500GB WD 16mb Cache (Master), 256mb 9950 ATI RADEON AGP ,19" LCD, and a 250W PSU

Running Vs6 Enterprise, running all vs8 products express edition

Edited by - thomas49th on 2/4/2005 2:04:47 PM

(NOT RESOVLED)Database Question(NOT RESOVLED)
I have three list boxes list1,2,3
I have three fields Username,Password,Account Type
I want all the usernames to be put in list1 password in list2 account types in 3. What is the code. I had a lok at the FAQ and they dont really help.

I need it using ADODB and this uis how far i got:

Dim rs as new adodb.recordset

Thx

{RESOVLED}For Each File In...{RESOVLED}
Hi,

Does any1 know the simplest code that will:

When i load my project a list box will load all the files in the directory e.g "C:" - NO SUBFOLDERS!

I have got this far...

Code:
Private Sub Firm1_load()
list1.additem ?????
end sub

------------------------------------------------------------------------------
And when a man gets to heaven,
To saint Paul he'll tell:
1 more soldier reporting sir,
I served My Time in Hell
6 June 1944

2GB DDR400 RAM, 3.4Ghz EM64T P4 Socket 775, 200gb PATA HD 8mb cache, 500GB WD 16mb Cache (Master), 256mb 9950 ATI RADEON AGP ,19" LCD, and a 250W PSU

Running Vs6 Enterprise, running all vs8 products express edition

Edited by - thomas49th on 2/8/2005 2:49:56 PM

{Not Resovled}For All The Records In A Record Set List In A List Box...HELP {Not Resovled}
I am trying to get a list of all the 'user' field in a database through a data control

I have tried going to a list box and setting the data scource to data1 and datafiled to what i chose, but i dosn't work

What i need is somthing like

Code:
For each redcord in data1
list.additen data1.records....'THIS WILL NOT WORK BUT U CAN GUESS WHAT IM TRYING TO DO
next

Thx

------------------------------------------------------------------------------
And when a man gets to heaven,
To saint Paul he'll tell:
1 more soldier reporting sir,
I served My Time in Hell
6 June 1944

2GB DDR400 RAM, 3.4Ghz EM64T P4 Socket 775, 200gb PATA HD 8mb cache, 500GB WD 16mb Cache (Master), 256mb 9950 ATI RADEON AGP ,19" LCD, and a 250W PSU

Running Vs6 Enterprise, running all vs8 products express edition

Edited by - thomas49th on 2/11/2005 11:12:15 AM

[resovled]
hey ive been working on this project for school for a long time i got most of it to work for me but im not to good with vb so if anybody can look at it and help me fix the few things i have left to finish i would be very thank full

Dll's[resovled]
Can somebody give me some info what dll files are for also how i put them in my projects.Please

Thanks .Paul

*Resovled*
this is my assignment, to make a translation program, so when you enter an english sentence it will tranlate that sentence to german and french, using arrays.

this is what's in the WORDS.TXT
YES, OUI, JA TABLE, TABLE, TISCH
THE, LA, DEM IS, EST, IST
YELLOW, JAUNE, GELB FRIEND, AMI, FREUND
SICK, MALAD, FRAN MY, MON, MEIN
LARGE, GRS, GROSS NO, NON, NEIN
HAT, CHAPEAU, HUT PENCIL, CRAYON, BLEISTIFT
RED, ROUGE, ROT ON, SUR, AUF
AUTO, AUTO, AUTO OFTEN, SOUVENT, OFT
so the first word is the english word that the user can use in the sentence, the next word is french, and then german.

this what my code is like:
Private Sub cmdDisplay_Click()
Dim Sentence As String
Dim French As String, German As String, English As String
Dim foundFlag As Boolean
Dim n As Integer, Lan As String
'Open txtWords and assign into visual basic

Open App.Path & "WORDS.TXT" For Input As #1
For n = 1 To 16
Input #1, eng(n), fre(n), ger(n)
Next n
Close #1
'Determine words, and analyze.
'Search for an entry in a list of strings
Sentence = UCase(txtEnglish.Text)
foundFlag = False
n = 0
Do
n = 0 + 1
If UCase(Len(eng(n))) = UCase(Len(Sentence)) Then
foundFlag = True
End If
Loop Until (n = 16) Or (foundFlag = True)
'Display the result in the picture box.

picDisplay.Cls
picDisplay.Print "English:"
picDisplay.Print Sentence
picDisplay.Print ""
picDisplay.Print "French"
picDisplay.Print fre(n)
picDisplay.Print ""
picDisplay.Print "German"
picDisplay.Print ger(n)

End Sub

so when i run this, it will only translate the first word in the sentence. How do I make it translate the whole sentence?

[Resovled]Simplist Way Of Doing This???
I need the simplist way to do a picturebox with scrollbars
I have a command button with a common dialog to open up and load picture into the picturebox. If the picture is to big it overlaps part of my program
I dont want this to happen if anyone know another solution please post

[Resovled]Out Of Memory!!!!
I just added some forms to my project and tryed to run with full compile.
And I get this

Out of memory

Even when I make and exe and try to run it, it says

Out of memory

My program is big(500kb Compiled)
How can I fix this????
If I get Visual Basic 6.0 Professional wilol this fix it?
Someone please help!!!

[Resovled]Layers......
I have been thinking about layers for my program and is there a way that when you press a button and then select a bitmap it make a picture box for it???? which then you could move around in my orignal picture box???

[RESOVLED] Variables
Hi all

How I can declare Public Variables in VB6?

Thank you.

[RESOVLED] Richtextbox X2
Im making a chat program and inthe chatbox, for sending messages i have a rich text box. Thing is, when I hit enter it makes a new line by itself, thus, ignoring my code. My code is provided for better view. Thanks for anyone who can fix this.

VB Code:
Private Sub cmdSend_Click()If txtChat.Text = "" ThentxtChat.Text = ""txtChat.SetFocusEnd IfIf txtChat.Text <> "" ThenWinsock.SendData txtChat.TextDoEventstxtMain.Text = txtMain.Text & vbNewLine & Client.txtUsername.Text & ": " & txtChat.TexttxtChat.Text = ""txtMain.SelStart = Len(txtMain.Text)txtChat.SetFocusEnd IfEnd Sub Private Sub txtChat_KeyPress(KeyAscii As Integer)If KeyAscii = vbKeyReturn And txtChat.Text = "" ThentxtChat.Text = ""txtChat.SetFocusEnd IfIf KeyAscii = vbKeyReturn And txtChat.Text <> "" ThencmdSend_ClickEnd IfEnd Sub

Thank you once again!

* Resovled * EM_SETREADONLY
Anyone know what I'm doing wrong with this

VB Code:
Private Declare Function SendMessage Lib _"user32" Alias "SendMessageA" _(ByVal hwnd As Long, ByVal wMsg As Long, _ByVal wParam As Integer, _ByVal lParam As Long) As Long Const WM_USER = &H400Const EM_SETREADONLY = (WM_USER + 31) Private Sub Command1_Click()Dim a As Longa = SendMessage(Text1.hwnd, EM_SETREADONLY, 1, 0)End Sub

I am getting no errors its just not setting it to read only, I know theres a .Locked property but I need to do it this way.

Any ideas

Subs.... (RESOVLED)
VB Code:
Private Sub cmd_change_Click() CapChange(label, text)End Sub Public Sub CapChange(label As label, text As TextBox)as Variant label.Caption = text.text End Sub

There are three objects on the form

a label
a text box
and a command button

I have a sub that will set the label to the textbox....

so CapChange(enter in the name of the label,enter in the name of the textbox)

'Set the label to the caption

I get a syntax error

please explain why this doesnt work?.... (VB6)

It would be nice if someone could explain how functions/SUb have to be called and what has to be set in order for a function/Sub to work

Function? **RESOVLED***
Im looking for a function that checks for a certain character and replaces it

so example

we have a index of numbers

index=ABCDEFGHIJK

it will check what is the third character which is C and Replace with a diffrent one, lets say G

Calculator *Resovled*
im trying to make a calc. Im dim'img my variables as doubles. And when i display my answer it puts it into sci notion. Calc.exe doesnt do that, is there something else i should be declaring it.

[Resovled]To Many Line Continueations???
Here my working code.....

VB Code:
Private Sub Command1_Click() RichTextBox1.Text = "1" & Text1.Text & "2" & _ vbNewLine & "3" & _ vbNewLine & "4" & _ vbNewLine & "5" & _ vbNewLine & "6" & _ vbNewLine & "7" & _ vbNewLine & "8" & _ vbNewLine & "9" & _ vbNewLine & "10" & _ vbNewLine & "11" & _ vbNewLine & "12" & _ vbNewLine & "13" & _ vbNewLine & "14" & _ vbNewLine & "15" & _ vbNewLine & "16" & _ vbNewLine & "17" & _ vbNewLine & "18" & _ vbNewLine & "19" & Text5.Text & "20" & Text6.Text & "21" & _ vbNewLine & "22" & _ vbNewLine & "23" & _ vbNewLine & "24" & _ vbNewLine & "25" & Text7.Text & "26" & Text8.Text & "27" & _ vbNewLine & "28" & _ vbNewLine & "29" & _ vbNewLine & "30" Command1.Enabled = FalseEnd Sub

But when I add one more line, like this.......

VB Code:
Private Sub Command1_Click() RichTextBox1.Text = "1" & Text1.Text & "2" & _ vbNewLine & "3" & _ vbNewLine & "4" & _ vbNewLine & "5" & _ vbNewLine & "6" & _ vbNewLine & "7" & _ vbNewLine & "8" & _ vbNewLine & "9" & _ vbNewLine & "10" & _ vbNewLine & "11" & _ vbNewLine & "12" & _ vbNewLine & "13" & _ vbNewLine & "14" & _ vbNewLine & "15" & _ vbNewLine & "16" & _ vbNewLine & "17" & _ vbNewLine & "18" & _ vbNewLine & "19" & Text5.Text & "20" & Text6.Text & "21" & _ vbNewLine & "22" & _ vbNewLine & "23" & _ vbNewLine & "24" & _ vbNewLine & "25" & Text7.Text & "26" & Text8.Text & "27" & _ vbNewLine & "28" & _ vbNewLine & "29" & _ [b]vbNewLine & "hi" & _[/b] vbNewLine & "30" Command1.Enabled = FalseEnd Sub

I get this as soon as I add it

Too many line continuations

and when I click away

Compile error:
Expected expression

Does anyone know how to fix this???

[Resovled]Combobox Instead Of Textbox..
1st: How do you make a list in a combobox????

Also how do you make it so Instead of this

VB Code:
vbNewLine & "<Image Name=""" & [b]Text2.Text [/b] & """/>" & _

I uses a combobox and whatever is in the combobox it puts there????

[Resovled]Picture Box That You Put Boxes Into???
I have a picturebox, I can load an image into it but after I do, I want to be able to make rectangle's on it like ms paint, and the use a code that tells you where the corner is on the x and y, with your size of the box, x and y???? I have a code that tells you corner location and image size but dont know how to make rectangles in a picturebox and apply the code I have to tell you position????? (All in pixel's, have scaler code already)
If you have any questions, post back

[Resovled]Click Repeat
I have a Picturebox with a code and I want it so if you hold down your mouse on it, it will repeat the command over and over agin????

[Resovled]Once Compiled Do You Still Need Your Controls?
If you add a control and then compile the project do you still need to keep the control in the same spot???

[Resovled]Opening Files In VB
I have a form and I want it so when I press a command button it open up and html file that I specify in my computer with internet explorer but still keep's my form up???????????????

[RESOVLED] Database Backup
Hi, is there a code to Backup my MDB to other drive.. Example I have my MDB file in Drive C: then I will going to backup or copy it to drive D:..
What code should I write?

[RESOVLED] Magic Behind The Code
Does anyone know where I can find the code behind most of the magical functions we all talk advantage of day to day. I am talking about Trim(), Left(), Right(), etc..

I am looking for the actual code used to create those functions.

Thanks

Best Way To Access Registry? [Resovled]
What is the best way to access the registry? I've always used WScript.Shell, but should I use API to access it?

Thanks,
Sir Loin

Admin Privileges [Resovled]
I was just wondering is there a way to temporarily give a user admin rights to their own pc during an update? I have this program and whenever I make changes I send out an update, and sometimes the user will need to unregister an old dll file and register a new one. This happens only if I make significant changes to my dll and it is no longer binary compatible with the old dll. Also if I create new dlls I want the user to be able to update their own machine by running the update, but they are not allowed to register a dll file. I spoke with the network admin and he does not want to give them the rights to do this because then they will install their own programs in their pc. So I was wondering if there was a way to give a user admin rights during my update and then take them away after the update in code?

ShellExecute And Network ???[Resovled]
I have this program that makes word docs on a network drive.. I have tried the shellexecute several ways to no avail... if I'm calling word, do I set open to winword and then pass in the network path of the file.. then what is the default directory ? is that c: or my network drive... ahh... I tried just open with the full path but word never comes up and nothing happens.. if I do it as winword with the params and stuff it just tells me it cant find it...

can someone fill in the blanks... for this

ShellExecute(Me.hwnd, "Open", filename ?, Params, default dir?, vbNormalFocus)

if the file is test.doc and the network path is //Net1/GroupFiles ?

HELP !!!

Variable To Timer [resovled]
how could a send a variable to a timer?
i tried declaring and setting the variable in a Public Sub but it didnt work...any help plz

How Do I Open A File [RESOVLED]
Hi, I really need to get this code, I've been trying for weeks. How do I open a file from VB?

[Resovled]Confusing Richtextbox Question
I have richtextbox and I want it to be loaded with a file, that's like a txt but with a different extention.(.FET) into a non visable richtextbox, then I want two text boxes that when you type something in the first one it add the text to a certain line on a certain spot??????
If you have any question please post back

[RESOVLED] Clearing Data In MSFlexGrid (VB6)
hi all,
is there a method to clear the only whole junk of data displayed in MSFlexGrid with a fresh MSFlexGrid. i know there is a .RemoveItem Flex.Row. but there are thousand lines of data to remove. i hope to have a clear swipe of the Grid. any suggestion? pls help thks

longwar

File Open Prompt [RESOVLED]
how do i make the file open prompt appear and then Text1.Text become the path to the file they selected?

[RESOVLED] Help With Calculator! NEED HELP BEFORE June 20th!!
I got some pictures showing what's wrong. Only happens with the "+".

What happens is, when I want to do '7 + 5', it doesnt do the operation, but adds the 2 number together.

If I do a Substraction, this is how it looks like:

We all know that '6 - 2 = 4'

Please help me, I got a programming exam tommorow and I gotta do a calculator on VB.NET. (I only have VB 6 at home)

School Assignment - Open IE {resovled}
Hello,

Im quite a beginner and i was wondering if there was ANY code for VB6 that would allow me to open an Internet Explorer Window when my user presses the Help Button.

ANY help would be excellent
Darcey

Reading From An Existing File [RESOVLED]
Im making a login screen for my school project. I understand the FileSystemObject and TextStream Objects very well but Im having a hard time reading from an existing file. Below I have two functions reading the same line from C:Password.txt. The text that they are reading from is seperated by a "|". I can figure out how to read the first set of text to the left of the "|" but how do I read the text to the right of the "|"?

VB Code:
Public Function GetUserName(strUserName As String) Set ts = fs.OpenTextFile("C:Password.txt", ForReading) strUserName = ts.Read(5) ts.Close End Function Public Function GetPassword(strPassword As String) Set ts = fs.OpenTextFile("C:Password.txt", ForReading) strPassword = ts.Read(?) ts.Close End Function

Here is the first procedure that creates the file C:Password.txt.

VB Code:
Private Sub Form_Load() If Not fs.FileExists("C:Password.txt") Then fs.CreateTextFile ("C:Password.txt") End If Set ts = fs.OpenTextFile("C:Password.txt", ForWriting) ts.Write ("Admin | admin") ts.Close End Sub

This Has Been Resovled!!!!!!! :) To The Admit Of The Site Great Job.
Can some one Help Me I'm stuck with a Little Project that I'm working on. I'm working on a Little Calculator Program with a text box and I'm using a control array And I'm clueless on how to get the control array index to Print To the textbox. If someone would be so kind to help me It would be gratefully appreciated, Bye the Way I'm a Beginner Visual basic programmer.

Thank's ThewThew

DataGrid Selecting Rows [*Not Resovled*]
I am using a datagrid that is connected to a database. What l want to do is find a way to find out what record in the grid the user clicked on. Example if the user clicks on record 10, how can l know that is the record the user clicked. I did try RowcolChange but that only tells me what row l selected after l have selected another one.

I have also used the code below, which only tells me what the user previously selected, but not the current selection. So this does not work either.

Code:
Private Sub DataGrid1_Click()
msgbox "You have clicked record number: " & DataGrid1.Row + 1
End Sub

Many thanks in advance

Steve

Open Doc W/o Object Control[Resovled]
I have code that will open a word doc and edit it and close it.. then after thats all done it will show up in a filelist.. then I want to be able to open that document but not have VB control it..

ie not use it as an object.. almost give it a run comand..

should I use a shell execute or is there something simpler ?

ComboBox: How To Get The Index If I Have The Name Of The Entry {RESOVLED}
How do I obtain the index of an entry in the combobox?
I have the name of the entry.
I know I can loop through the index by using

For i = 1 to numberOfIndex
combo.index = i
if combo.value = myentry then *I have the index*
next i

However, I wish to obtain the index without setting the index of the comboBox as this will tigger the combo_change event, which I am trying to avoid.

Thanks in advance

Printing An Excel Worksheet [Resovled]
I have a program that creates an excel worksheet and then tries to print it. On a windows 2000 with office 2000 the program works perfectly, but when I try to run it on a Win 98 with office 97 the code gives me an illegal operations and it shuts down my program.

VB Code:
'here is the code I use to print the file Dim xlApp As Excel.Application Set xlApp = New Excel.Application 'Open the workbook to examine the results xlApp.Workbooks.Open (App.Path & "ReportsPriceListing.xls") xlApp.DisplayAlerts = False 'everything works but this line. If I comment this line out 'program will run fine and the report will be produce but 'I will have to manually open it and print it. Which is not an 'option because I am supposed to delete that file after it is 'printed. Does anyone know why this line would cause an error? xlApp.Worksheets.PrintOut xlApp.Workbooks.Close xlApp.Quit xlApp.DisplayAlerts = True Set xlApp = Nothing

List All Subfolders In Directory Using FSO (Resovled)
VB Code:
dim fso as new filesystemobject Set f = fso.GetFolder(FolderPath) Set fc = f.files For Each f1 In fc ListBox1.AddItem f1.Name Next

I'm trying to get a list of folders in any given path. The above code gets you a list of files, but not subfolders.

One of the properties available to the "f" object is .Subfolders, so I can set fc to = f.subfolders but the problem is, "f1" is no longer a valid object in "fc". I suspect I simply need to change "f1" to reflect the change in fc, but I don't know what to change "f1" to.. I can't seem to find any handy dandy syntax refrences anywhere.

I'm not set in stone for using this particular method, so if you have a better way, I'm all ears.

Thanks.

Six Degrees Of Kevin Bacon *Resovled*
Does anyone know the logic i would want to use if i was going to make a program very similar to the Six Degrees of Kevin Bacon. I want to do it with kids from my school. I would have 2 list boxes where you would choose who to start with and who to end with. And then figures the connection to people and trys to do it in 6 steps or less. I figure that i would need a file that holds every persons name and who that person is connected to. And even if i did that how could the computer be able to search throguh and finds it way to the corect ending person quickly and effieciently.

Problems With Toolbar And Imagelist ** RESOVLED**
I am using the toolbar control with 2 imagelists. I have images added to the imagelist, but when I select the imagelist name from the dropdown lists on the toolbar's custom properties and click Apply, it changes back to none, therefore my toolbar buttons cannot load the images.

Any ideas why this is happening?

***resovled****I Need Urgent Help With A Date Calculator
I'm relativly new to Vb i juststarted like 2 weeks ago. I have a project to complete and i want VB to tell me the number of days that have passed between date given by user and today's date i believe i got most of the coding right but plz help me i need this done for tomarrow....here is my code

Option Explicit
Dim d1 As Long
Dim m1 As Long
Dim y1 As Long

Private Sub cmdcompute_Click()
picfee.Cls
Dim Name As String
Dim Book As String
Dim CheckMonth As String
Dim CheckDay As String
Dim CheckYear As String
Dim m2 As Long
Dim d2 As Long
Dim y2 As Long
Dim Totaldays As Long
Dim i As Long

Totaldays = (y2 - y1) * 365
' 30 day months: september 9 april 4 june 6 november 11
' 28 day months: february

For i = m1 To m2 - 1
If i = 4 Or i = 6 Or i = 9 Or i = 11 Then
Totaldays = Totaldays + 30
Else
If i = 2 Then
Totaldays = Totaldays + 28
Else
Totaldays = Totaldays + 31
End If
Next i

Name = txtname.Text
Book = txtbook.Text
CheckMonth = txtcheckmonth.Text
CheckDay = txtcheckday.Text
CheckYear = txtcheckyear.Text

picfee.Print Name; " now owes for the book " & Book; " that was was checked out on " & CheckMonth; "-" & CheckDay; "-" & CheckYear

End Sub

Private Sub Form_Load()
lbldate.Caption = Format(Now, "dddd, mmmm, dd, yyyy")
m1 = Month(Now)
d1 = Day(Now)
y1 = Year(Now)
txttodaymonth.Text = m1
txttodayday.Text = d1
txttodayyear.Text = y1
End Sub

Private Sub Timer1_Timer()
If lbltime.Caption <> CStr(Time) Then
lbltime.Caption = Time
End If
End Sub

Fairly Simple Question... *RESOVLED*
Hey,

I am pretty much a beginner when it comes to VB but I am working on a HTML Editor for myself. Anyway, I have set an association with a certain file type and it will launch my program when that filetype is clicked but no matter what I try the loading code I have won't work. I am using:

If Command$ <> "" Then
frmDocument.rtfText.LoadFile Command$
Else
LoadNewDoc
End If

I tried making Command$ show in the richtext box to make sure it was actually loading any filename and it was, it loaded "filename.ext" and yet, the file doesnt load.. Can you help?

Thanks

APPLICATION SETUP WIZARD [RESOVLED]
WHEN I START UP THE APPLICATION WIZARD SETUP A ERROR APPEARS:

I have reinstalled it but i worked the first time but today 13 jan 2005 the msg appeared again and i reinstalled but it didn't work and i treid agina- no sucess! I have vb4 enterpris HELP ME!!!

CLICK ON ATTACHMENT IF U CANT SEE THE PICTURE...

Edited by - thomas49th on 1/19/2005 8:52:53 AM

Need Help[Resovled]

Hi I would like to know is there such function in SQL exactly the same like VB format function eg: format("1", 0000) = 00001. If there is what should i be looking for?Thanks

Hi

I would like to know is there such function in SQL exactly the same like VB format function eg: format("1", 0000) = 00001. If there is what should i be looking for?

Thanks