|
Do you have to use late binding? Can you just add it to the Components list of your project?
--
David Wengier
TAC ad gone wrong: "Don't fool yourself, you're a bloody idiot."
Sonork ID: 100.14177 - Ch00k
|
|
|
|
|
hi,
I need to work without adding the component to the project.
And i'm not able to display it
|
|
|
|
|
Michael.Weiss wrote:
I need to work without adding the component to the project.
In that case, you should be able to do the following:
Set MyTotoObject = MMI.Controls.Add("TotoViewOCX.TotoView", "MyToto")
MyTotoObject.Object.YourFunction()
Where "YourFunction" is whatever you want to do.
--
David Wengier
TAC ad gone wrong: "Don't fool yourself, you're a bloody idiot."
Sonork ID: 100.14177 - Ch00k
|
|
|
|
|
Thank you!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!¨
it's working
|
|
|
|
|
Hi,
How can I create this acitevx component to access from jscript?
|
|
|
|
|
Please, how could i make 16-Bit colors 32-bit?
|
|
|
|
|
Are you talking about an image that you want to display, or the display mode of your video monitor?
Build a man a fire, and he will be warm for a day
Light a man on fire, and he will be warm for the rest of his life!
|
|
|
|
|
hi everyone..
does anyone know if there is a way of getting input from DOS shell. I am running an executable (DOS based program) which prints stuff on the screen. is there a way of catching this from a VB program while the executable is running? please do let me know..
thanks
Mohith
be the change that you want to see in the world
|
|
|
|
|
The easiest way I know of is to have the standard output (STDOUT) redirected to a text file. You could use some console functions or the ReadFile() API, but that involves more work on your part. Anway, to be able to have the output in VB use the ShellExecute() API.
Private Const SW_HIDE = 0
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Then, call your exe make sure to redirect the output in the parameter parameter.
ShellExecute Me.hwnd, "open", "my.exe", "> output.txt", "C:\", SW_HIDE
The program's output will be in output.txt, which will reside in the same dir as the exe you called.
Good luck,
Jeremy L. Falcon
"The One Who Said, 'The One Who Said...'"
|
|
|
|
|
how does this work? does it write to output.txt in c:\ directory? its not creating the file. its not in the same directory as exe as well.
i want to read the output on screen into my VB program. can i do that? i am using VB 6.
so i run an executable file from my VB application. that eecutable basically dumps some stuff on to the screen and i want to catch these dumps and show them in my VB application while the executable is running. i dont want to redirect the whole output to a file and then read it in once executable is finished running. can i do this?
please let me know. i would really appreciate your help.
kindest regards
Mohith
be the change that you want to see in the world
|
|
|
|
|
This does work. How are you attempting to implement this? Remember the function and constant are declared with private scope. Change it to public if you put it in a module. Also, I'm assuming you changed my.exe to a filename that exists in your C:\ directory??
Jeremy L. Falcon
"The One Who Said, 'The One Who Said...'"
Homepage: imputek.com
|
|
|
|
|
this is the code in my form
ShellExecute Me.hwnd, "open", "hiplex.exe", "> output.txt", "C:\", SW_HIDE
and i have made everything public in module which is
Public Const SW_HIDE = 0
Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
still creates no output.txt in c:\. do i need to include anything else?
once it creates, how would i read in the stuff from file (output.txt) to lets say a text box within my VB application while the executable is still running?
regards
Mohith
be the change that you want to see in the world
|
|
|
|
|
We'll I'll be! I did run an exe (before I posted) and redirected the output to a file just to make sure and it worked, but I tested it in VB and sure enough it didn't happen.
It *does* work, but the catch is you have to have the console open, and it must stay open. If I run a console program outside of an open shell (command) window it closes before STDOUT has time to be written to.
So, I tried several things. This involved me actually piping a char stream to my app directly (skipping output.txt). That worked, but it still didn't allow me to make sure the Window was hidden.
So, I got the idea to use a batch file. Lo and behold it did the job. No window and output.txt was there. This is because (I assume) of the way a batch file is handled -- it was an execution on top of an execution. The only thing left to do was make sure the program waited long enough to let the text file be created. So, I checked to make sure the process terminates.
Posting the code in this message isn't sensible because I also created a simple C console application that prints to STDOUT and an example batch file to run it. So, I ZIPped up the project and posted it for download on my (soon to be) website. Just scan for viruses as a precaution. I'm paranoid about this ever since I got CIH (back in the day).
Oh, and don't forget to put myprog.exe and myprog.bat in your C:\ directory.
File: http://dev.imputek.com/StdOut.zip
Jeremy L. Falcon
"The One Who Said, 'The One Who Said...'"
Homepage: imputek.com
|
|
|
|
|
hi Jeremy
thanks for this but this reads in from the file once the application (exe) is finished. i want to catch the stuff while the application is still running. is this possible? while the exe is running and sending stuff to screen, i want to catch the output written on screen and print it in the text box.
please let me know if this is possible.
kind regards
Mohith
be the change that you want to see in the world
|
|
|
|
|
It's possible, but it won't be easy. This will involve you controlling the process and the process' console manually -- which takes some work.
If you have MSDN installed, check out...
mk:@MSITStore:C:\Program%20Files\Microsoft%20Visual%20Studio\MSDN\2001JAN\1033\fileio.chm::/hh/winbase/conchar_4p6c.htm
And look into "Using the Console" and "Console Reference". If you don't have MSDN installed, then you can look at MSDN Online.
Jeremy L. Falcon
"The One Who Said, 'The One Who Said...'"
Homepage: imputek.com
|
|
|
|
|
Hi !
I'm building an App using Visual Basic 6, where I would like to display many ActiveX controls.
The number and types of ActiveX to display is not hard-coded in the App, but rather put in a text file that would be read during initialization of the App, thus allowing me to add/remove ActiveX controls without recompiling my App.
My problem is I don't know how to use an ActiveX control in VB without registering it (Project->Component) and putting it into a form. I would like to register it during code execution and placing it into my form dynamically.
Anyone knows how to do that ?
Thank you for your help !
Jerome
|
|
|
|
|
To simply put it, it's a whole heck of a lot easier to reference all the ActiveX controls (Project/Components...) you'll need and create them as needed. Also, if you use the package and desployment wizard it'll make sure the OCXs are included in your installation.
I am not sure what it is exactly you are looking to do, but if you do reference the controls, you can use a control array along with the Load statement to create new indices at runtime.
You don't have to use a control array. Reference the rich edit control in your project, Uncheck "Remove information about unused ActiveX Controls" from Project Properties/Make. And run the following code...
Dim MyControl As Control
Private Sub Form_Load()
Set MyControl = Me.Controls.Add("RICHTEXT.RichTextCtrl.1", _
"RichText1", Me)
MyControl.Text = "I'm Dynamic!"
MyControl.Font.Bold = True
MyControl.Font.Italic = True
MyControl.Visible = True
End Sub
Private Sub Form_Resize()
If IsObject(MyControl) Then _
MyControl.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub
Private Sub Form_Unload(Cancel As Integer)
If IsObject(MyControl) Then Set MyControl = Nothing
End Sub
However, in doing this you'll need to know the ProgID for the ActiveX control. I generally, place the control on the form, save it, use the .frm file to get the class name, run it, and get an error message giving me the ProgID. You can also get it from the registry, but I'm lazy. 
If you don't register the control in the project you may have to deal with licensing info in your code. Most MS ActiveX controls require a license to be used. You could create one manually, but this becomes more of a pain than it's worth.
Good luck...
Jeremy L. Falcon
"The One Who Said, 'The One Who Said...'"
|
|
|
|
|
I'm new to Visual Basic. Is there any way that I could give a visual basic 6 application the look/feel of a java swing app ?
|
|
|
|
|
i want to send a picture on the plotter of A0 size through my visual basic programe.reply me soon plz plz plz plz.
talha amin
|
|
|
|
|
hi, i would like to do something like that:
the website targeted use PHP to login with a username and a password.
and then, some menu is shown, (all using .php or .php3 extension for viewing pages.)
the fact is, if i do not log with my user/password within internet explorer, i can't even retrieve files i want using internet explorer.
but, even after logging in, and when i am able to download any file ending with .php3?someparam=somevalue&another=anothervalue etc...
when i use a offlinebrowser application to save all pages i want, the external application finally download a page which says i'm not logged on. although i can still download that page opening an internet explorer windows... (and setting the offline browser 'spider' to identify itself as IE doesn't solve the problem.)
so i have figured out that i need something, which will log in using a specified username/password, and then, will download all files linked from a single url. (and that need to work with either .php or .php3?x=1&pass=2 files...)
how can i do that?
|
|
|
|
|
|
Hi
Is there a way of converting the path written in 32 bit way to 16-bit in VB?
e.g. i want to convert c:\my documents\try\usinggrids to
c:\mydocu~1\try\usingg~1
please do let me know if there is a way
thanks
Mohith
be the change that you want to see in the world
|
|
|
|
|
Check out the GetShortPathName() API.
Jeremy L. Falcon
"The One Who Said, 'The One Who Said...'"
|
|
|
|
|
Hello !!!
I would like to combine a Flash 5 animation to VB 6.0 software as a button. i.e. when the mouse is on the button the anination is start to move, otherwise, there is a button with a static graghic.
Thank you very much !! I hope you can help me.
Ahuva.
|
|
|
|
|
Hi Ladiez & Gentz,
this is an example out of my Learn Scripting In 2 Hours Book (Yeah Right)
it opens excel and then creates a new workbook and changes some of the cell properties and enters some info
but what i want is to open excel and then OPEN a workbook - anyone got any idea on how to
thanks in advance
Alex T
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
L_Welcome_MsgBox_Message_Text = "This script will display Windows Scripting Host properties in Excel"
L_Welcome_MsgBox_Title_Text = "Windows Scripting Host & Excel"
'Excel Sample
Dim objXL
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Visible = True
objXL.Workbooks.Add
objXL.Columns(1).ColumnWidth = 20
objXL.Columns(2).ColumnWidth = 30
objXL.Columns(3).ColumnWidth = 40
objXL.Cells(1, 1).Value = "Property Name"
objXL.Cells(1, 2).Value = "Value"
objXL.Cells(1, 3).Value = "Description"
objXL.Range("A1:C1").Select
objXL.Selection.Font.Bold = True
objXL.Selection.Interior.ColorIndex = 1
objXL.Selection.Interior.Pattern = 1 'xlSolid
objXL.Selection.Font.ColorIndex = 2
objXL.Columns("B:B").Select
objXL.Selection.HorizontalAlignment = &hFFFFEFDD 'xlLeft
Dim intIndex
intIndex = 2
Sub Show(strName, strValue, strDesc)
objXL.Cells(intIndex, 1).Value = strName
objXL.Cells(intIndex, 2).Value = strValue
objXL.Cells(intIndex, 3).Value = strDesc
intIndex = intIndex + 1
objXL.Cells(intIndex, 1).Select
End Sub
'Show WScript Properties
Call Show("Name", WScript.Name, "Application Friendly Name")
Call Show("Version", WScript.Version, "Application Version")
Call Show("FullName", WScript.FullName, "Application Context: Fully Qualified Name")
Call Show("Path", WScript.Path, "Application Context: Path Only")
Call Show("Interactive", WScript.Interactive, "State Of Interactive Mode")
'Show Command line Arguments
Dim colArgs
Set colArgs = WScript.Arguments
Call Show("Arguments.Count", colArgs.Count, "Number of command line arguments")
For i = 0 To colArgs.Count - 1
objXL.Cells(intIndex, 1).Value = "Arguments(" & i & ")"
objXL.Cells(intIndex, 2).Value = ColArgs(i)
intIndex = intIndex + 1
objXL.Cells(intIndex, 1).Select
Next
'Welcome
Sub Welcome()
Dim intDoIt
intDoIt = MsgBox(L_Welcome_MsgBox_Text, vbOkCancel + vbInformation, L_WelcomeTitleText)
If intDoIt = vbCancel Then
WScript.Quit
End If
End Sub
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
