I Realy Need Help On This One

Which Of Thes Dep's Do I Realy Need
Hi Guys,

I have an app that runs an access database.
I have made an installer setup using Inno & IStools, all seems fine!!

I have included several database files to help my app on other systems, there are:

dcom95.EXE
dcom98.exe
mdac_typ.exe
vbrun60sp5.exe
Jet40SP7_9xNT.exe

Now I have also a few Dll's & OCX files I have included But Im not sure If I realy need them all with having the above files too, So im hoping someone can advice me on what I need, when my app installs on to other systems at the moment it seems to be fine, there has only been 1 PC came up with an Runtime Error 429 so far.

The other dep's I am including at the moment are:

COMDLG32.OCX
MSMAPI32.OCX
MSCOMCT2.OCX
MSDATGRD.OCX
MSCOMCTL.OCX
MSADODC.OCX
RICHTX32.OCX
dao360.dll
MSBIND.DLL
OLEAUT32.DLL
scrrun.dll
ASYCFILT.DLL
COMCAT.DLL
msvbvm60.dll
OLEPRO32.DLL
msjtes40.dll
msrd2x40.dll
msrd3x40.dll
msrepl40.dll
MSSTDFMT.DLL
msvcrt.dll
mswdat10.dll
mswstr10.dll
VB5DB.DLL
VB6STKIT.DLL
vbajet32.dll
expsrv.dll
msado27.tlb
msjet40.dll
msjint40.dll
msjro.dll
msjter40.dll
STDOLE2.TLB
CDO.DLL
msado15.dll

Thanks again for any assistance
L

---

I Realy Need Help With This Form
ok hi im trying to make a form that has three parts part one a lable that says enter ip witch i have part too a text box that you can enter an ip in the format 000.000.000 but automatically separated by the dots and the third part a button that sends the message to that ip is this possible and if so can someone please help me i am relatively new to vb so i relay need help(sorry if it dont fit in this forum im kinda in a hurry)

Thanks

---

Realy Need Some Help Translate From C++
Hello folks,
How should this function look in visualbasic code?
Im been thinking about this for a while now but since i know nothing about C++ it's not so easy


VB Code:
void PrintMessage(char *Message, char Color){pPrint Print = (pPrint)0x6FAC6780; //function for adding message to chatwchar_t Buffer[0x130];  //buffer (0x130 was maximum from what i read somewhere)        //convert to WideChar (2 bytes per each character)MultiByteToWideChar(0, 1, Message, 100, Buffer, 100);Print (Buffer, Color);    //and print}


Big thanks,
Naitsabes

---

Anyone Realy Know What OLE Automation Is?
I don't understand what OLE automation is. Can anyone explain it for me?

What popular application uses OLE automation?

---

Should Be Realy Simple
how can I delete through code the first 7 characters in a text file

---

What Does This Realy Means
"Empty row cannot be inserted. Row must have at least one column value set."

the app. is about filtering a recordset,

Set Rst_Filter_Dt = DualFilterField(Rst_Batch_Dtl, "Batch_no", Text1(0).Text, "ProdPeriod", Text1(3).Text)

If Rst_Filter_Dt.RecordCount <> 0 Then Rst_Filter_Dt.MoveFirst

'the function
Public Function DualFilterField(RstTemp As ADODB.Recordset, _
strField As String, strFilter As String, _
strField1 As String, strFilter1 As String) As DODB.Recordset

RstTemp.Filter = strField & " = '" & strFilter & "' And " & _
strField1 & " = '" & strFilter1 & "'"
Set DualFilterField = RstTemp
End Function

'if only more details can be seen on the error messages things can be resolve quicker and precise.

10x
cyrus

---

Is BltFast Realy Slow?
guys i wanna draw trees on a forebuffer which i then copy into backbuffer. The drawin' area is like 800*600 and trees are like 80*60. But bltfast is * * * * slow drawin the trees on screen it reduces ma fps to half when the trees are more than 20. :O any1 got any idea???

---

A Realy Stupid Question
Hi, I'm a begginer with VB..... I donwloaded myodbc3.dll to use MySQL and I'm using this code that I found in this forum:

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.ConnectionString = "driver={MySQL};server=127.0.0.1;uid=root;pwd=;database=dbname;OPTION= 3;STMT=;"
cnn.Open
Set rs.activeconnection = cnn
rs.Open "select * from customers"
Form1.Text1 = rs!fieldname

My question is "How can I link to the myodbc3.dll "????? in oder words..... How can I use a .dll's file in a VB code?

---

Realy Weird Thing In Vb6
Ive goten a FILE counter and it works with the*.* thing
anyway it only counts the files in its own directory ,
so ive tryed to do a project but it doesent work properly , and after a few testings

ive found out that the file was in the directory i want to be ( the file as in the one that counts the files in its App.path )
and it gets to that directory by another program a (handler) i like to call , the handler basically copies the counter to a directory to count the files in it.

but when it gets copied i made it MSGBOX number of files and app.path

it sayd the number of files that the (handler ) was in , and the app.path was in another directory. this is very weird ... i dont know how to fix it not evin a possability.

i hope i made my self clear becous eim bad at explaining.
thats not the hole code .

Code:
Private Sub che()
Dim FileName As String, Bytes As Long, FileCount As Integer

FileName = Dir("*.*")
While Len(FileName)
FileCount = FileCount + 1
Bytes = Bytes + FileLen(FileName)
FileName = Dir()
Wend
MsgBox Str(FileCount) & " files on subdirectory using" & Str(Bytes) & " bytes. im in " & App.Path



End If
End Sub


the handler basically coppied it to another file , without running it untill it went to the folder


...

---

Realy Need Help!! Find String!
HI!!
Well i am cratinf webserver but i need to search a text in string to know what will be the next wepage tha will be displayed!! This is that string:
GET /index.htm HTTP/1.1
In this string my server have to find a websites url! my code is like:

VB Code:
Dim Search, Where    Search = "index.htm"    Where = InStr(Text1.Text, Search)    If Where Then   ' If found...        Text1.SelStart = Where - 1        Text1.SelLength = Len(Search)    Else        MsgBox "String not found."    End If

Well it finds the url but the problem is that
that URL can be default.htm or downloads.htm! So i need my server to search only for ".htm" and then add the rest url like downloads.htm! Can you please help me!!!???

---

Need An Answer Realy Fast :S
On an error.. i want the error to display in a MSGBox instead of a runtime error or something

---

Realy Weird Problem
I've made a program. then I made with the Application Setup Wizzard a install program. then I send it to someone. he started setup.exe and the program said that he couldn't find Cchat.exe. this would be necessary to extract ex_ files. I've searched for this Cchat.exe file, but it's a chat program!! isn't this weird? what can I do to make my program work at the other persons computer?

please help,

VisualPenguin

---

Packaging Error Realy Need Some Help
HI

i've encountered an error during the packaging of an application

at the last screen of the packing after give a name to the sript package a message box notify this error:

Unexpected error number 457 appears : key alreday linked to another item's collection

(be care i translated the error description french to english)

I'll enjoy you could give me some help

BEST REGARD


THOMAS

---

Realy Dumb Dir Question
got dir1.
now if i map a drive to my pc..
how can i make dir1 view the directory's on that maped drive (say M)

do i go dir1.path="m:" after mapping it?????

---

Realy Quick Question
ok, i want my program look for a certain string/keyword in one of my files on my computer:

<A HREF="ftp://

Thats the word i want it to look for, but if u havent all ready guessed it. It wont work. Reason for it is becuase of the darn quotes. I HAVE TO HAVE THE QUOTES IN THERE! ahmm, i just had to get that out of the way becuase i know what most of u are going to say . Now, how do i get around this prob?

This was the string i was going to use before this prob came along:

Code:
intAPOS = InStr(1, strFTPs, "<A HREF="ftp://")


Thanks (again)

---

People This Is Important (I Realy Need Help)
I'm having the presentaition of my program tomorow and i noticed that one thing is not finished. I just must finsh it until tomorow. You are my last chance.

I have 1 textbox

Problem:

I need to make program wich disalows user to copy information from textbox to clipboard.
(I need to make right mouse button and Ctrl+c
keys inactive on this textbox)

I tried to make something like:


Code:
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 2 Then
KeyAscii = 0

End If

End Sub


But this just doesn't work


Any ideas apricieted

-thank you


------------------
-casparas

novice programer
casparas@metacrawler.com

---

A Realy Challenging Topic, Well I Think So!
I have need to be able to open a word document and view it within either VB, preferably VBA or Java and then print it in a pdf format. We have Acrobat and thus a postscript printing capability. I imaging you can get a VB control that facilitates opening and viewing word documents but I have no idea where you get one or how you use it, let alone how you go about printing it out.

Can this be done?
Cant be done in VB?
Is it exspensive?
How do you do it?

If anyone can help, thanks.

---

HELP: Realy Simple File Sending
Hi!!
I try to create a simple file seding programm. i try'd to send a 605 bytes small file but server recives only about 558 bytes!!! heres the code:

This is how i open the file!

Code:
Private Sub Command3_Click()
Open "C:Icon.gif" For Binary As #1
Do Until EOF(1)
Get #1, , strData
Text3.Text = Text3.Text & strData
Loop
Close #1
End Sub

then i send the string


Code:
Private Sub Command2_Click()
Winsock1.SendData Text3.Text
End Sub

and the server code when data arrivals, this will create a gif file from recived data string:


Code:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim ThisIsData As String
Winsock1.GetData ThisIsData
MsgBox ThisIsData
Open "c:File.gif" For Binary As #1
Put #1, , ThisIsData
Close #1
End Sub

byt this file is smaller and when i try to open it, it shows just: cannot display image, image is invalid or something like that!!
how can i send this file without losing data???
Thanx!!

---

Simple Question.. Realy Easy
ok i have this program im tryin to make and it loads a .txt into the text box and there are screen names in the text box and look like this( blah@aol.comblah@aol.comblah@aol.comblah@aol.com) what im tryin to do is to get the program to use the mid function or somethin of that sort to put them into a list like (blah@aol.com
blah@aol.com
blah@aol.com
blah@aol.com) how do i load the .txt into the text box first off? cause i can do a list box and get it to load and everything but the text box is trickin me?

---

Realy Simple Problem But I Can Work It Out ?
OK, so it looks likes its working fine but it slowly messis up when you move the screen around so im guessing its somthing small thats wrrong, also it COMPLEATLY messis up if you min the form or make it really small.

Any idears ?


you can see the source a lot better at

http://tsn.dk/p/?id=2077

Private Sub Admin_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize

        Static Old_Size As Integer

        If Me.Width > Old_Size Then

            Admin_Main_Sessions_Users_Com.Width = Int(Admin_Main_Sessions_Users_Com.Width + ((Me.Width - Old_Size) / 2))
            Admin_Main_Sessions_Sessions_Com_Tag.Location = New Drawing.Point(Int(Admin_Main_Sessions_Sessions_Com_Tag.Location.X + ((Me.Width - Old_Size) / 2)), Admin_Main_Sessions_Sessions_Com_Tag.Location.Y)
            Admin_Main_Sessions_Sessions_Com.Location = New Drawing.Point(Int(Admin_Main_Sessions_Sessions_Com.Location.X + ((Me.Width - Old_Size) / 2)), Admin_Main_Sessions_Sessions_Com.Location.Y)
            Admin_Main_Sessions_Sessions_Com.Width = Int(Admin_Main_Sessions_Sessions_Com.Width + ((Me.Width - Old_Size) / 2))
            Admin_Main_Sessions_Log_But.Location = New Drawing.Point(Int(Admin_Main_Sessions_Log_But.Location.X + (Me.Width - Old_Size)), Admin_Main_Sessions_Log_But.Location.Y)

        Else

            Admin_Main_Sessions_Users_Com.Width = Int(Admin_Main_Sessions_Users_Com.Width - ((Old_Size - Me.Width) / 2))
            Admin_Main_Sessions_Sessions_Com_Tag.Location = New Drawing.Point(Int(Admin_Main_Sessions_Sessions_Com_Tag.Location.X - ((Old_Size - Me.Width) / 2)), Admin_Main_Sessions_Sessions_Com_Tag.Location.Y)
            Admin_Main_Sessions_Sessions_Com.Location = New Drawing.Point(Int(Admin_Main_Sessions_Sessions_Com.Location.X - ((Old_Size - Me.Width) / 2)), Admin_Main_Sessions_Sessions_Com.Location.Y)
            Admin_Main_Sessions_Sessions_Com.Width = Int(Admin_Main_Sessions_Sessions_Com.Width - ((Old_Size - Me.Width) / 2))
            Admin_Main_Sessions_Log_But.Location = New Drawing.Point(Int(Admin_Main_Sessions_Log_But.Location.X - (Old_Size - Me.Width)), Admin_Main_Sessions_Log_But.Location.Y)

        End If

        Old_Size = Me.Width

end sub

---

Realy A Newbee Question . Need Help On A Simple Loop.
Hi i was wondering if anyone of you could help med with this.
I'm making a simple program with several labels, and i need to change the labelX.top command on all my labels.
This is easy in simple code, but there must be a way to automate it , so i dont have to wright it all inn.
Feks.
label1.top =
then the loop would change the value to label2.top= then label3.top = etc.

So that i dont have to wright
let label1.top =
let label2.top =
let label3.top =

Thanks Guy's

Gabrielli

---

Realy Need Help Please,, Treeview To 3 Listview, DBGrid1 To Slow
I use DBGrid1 to call from database

Table customer into DBGrid1
and when I klick on DBGrid1 I get info from Table workingTime into DBGrid2
From Table Rent into DBGrid3 and from table Whois into DBGrid4

In Table customer I use NR=autonumber
so when I klick on DBGrid1 I use NR to call same NR from Table workingTime, Rent and Whois

DBGrid1 is to slow, so I want to tray to use treeview and listview

But need help to now how I call customer into treeview and use NR from treeview to call the rest from NR in rest og the table
and pudit into listview..

HOW? HOW?

PLEASE som

---

Windows XP Button Howto (Read This Its Realy Cool)
Hey there,

i found a UserControl on the internet that make's Windows XP buttons in you VB Application!

Its cool though, but there is only 1 color available.

Download the Zip file, and place it somewhere on your computer. Make a new project, and add
the XP_Button usercontrol to your project.

Now, add the line below to your Form_Load section where Form1 is the form that contains the buttons:

Code:
InitialiseButtons Form1, True, True 'Must Call this to initialise the buttons


Place the code below somewhere apart in your project.

Code:
Public Sub InitialiseButtons(FrmForm As Form, Initialise As Boolean, Optional BytEnabled As Boolean)
On Local Error Resume Next
Dim Control As Object 'Define the variable control as an object
    For Each Control In FrmForm 'Check all controls on a form
        If TypeOf Control Is Command Then
            If Initialise = True Then
                Control.Initialize 'If its a XP command button then initialise it.
            Else
                If BytEnabled = True Then
                    Control.Enabled = True
                Else
                    Control.Enabled = False
                End If
            End If
        End If
    Next


Happy programming and have fun with this UserControl!

Greets,

DigitalHuman

---

Network Help SMALL REALY SMALL!
If im on a network how and my PC name is 17-13-34 how can i send a net send message to the Admin i tryed
17-13-00
17-13
17
Nune worked??

---