Re: VB 6.0 How do I read from a .txt file? - Visual Basic Discussion Boards

BHBAD200217-Sep-02 8:12

BHBAD2002

17-Sep-02 8:12

you could try and add an Edit() command. I know in VB 6.0, you can only put an update() command if you had an edit or add command before it.

I'm not usre if it is the same in vb.net, I am still in the trial period of experimenting with it.

Have fun!

COMException

devvvy16-Sep-02 10:50

devvvy

16-Sep-02 10:50

pretty new to .NET, i was just trying to read an image column (recordset) into a stream object before i flush the stream and dump everything to disk.

Here's the code:

mstream.Write rs.Fields("Photo").Value 'Exception thrown here!
mstream.SaveToFile "c:\oolala.bmp"

The exception thrown:

MYQUOTE:
"SystemRuntime.InteropServices.COMException 0x800A0C93 Operation is not allowed in this context

at ADODB.StreamClass.Write( Object Buffer)

..."

Any idea? I presume i cant just put this VB 6 code in VB.NET...? any pointer?

Thanx!

norman_lm_fung@hotmail.com

norm

how to create ActiveX controls

diya16-Sep-02 9:32

diya

16-Sep-02 9:32

can any1 help me out... problem is how to create ActiveX controls for making a time line for scheduling which should also have the option of draging so the schedule can be updated.

Strange Form.Load problem

Member 13074716-Sep-02 5:45

Member 130747

16-Sep-02 5:45

I have an old VB6 projected that I have upgraded to VB.NET and all works well apart from one strange issue.

I have a form with an Load event handler, not if I display the form using myForm.Show () Load executes, if I use myForm.ShowDialog () then Load does not execute!

Is there a way round this?

Thanks

Stephen.

Re: Strange Form.Load problem

Ray Cassick16-Sep-02 6:19

Ray Cassick

16-Sep-02 6:19

I have not played around with .ShowDialog much, but from the looks of it, what you see is what you get. Is there a reason you are using ShowDialog vs. show? Are you really trying to use this form as a modal dialog box?

VB 6.0 How do I read from a .txt file?

BHBAD200216-Sep-02 4:32

BHBAD2002

16-Sep-02 4:32

I am writing an application right now in VB 6.0. I was just wondering if someone could help with this. Upon the FormLoad() function, I need the program to call a notepad file (main.ini) and read the third line and replace a variable inside of my program. Can somebody please please help me????
Thanks again,
Bob

Re: VB 6.0 How do I read from a .txt file?

Ray Cassick16-Sep-02 5:31

Ray Cassick

16-Sep-02 5:31

Here is a good article that shows you how to do it. You can use this code to do either an ini file or the registry:

http://www.thescarms.com/vbasic/registry.asp[^]

Re: VB 6.0 How do I read from a .txt file?

Zyxil19-Sep-02 10:38

Zyxil

19-Sep-02 10:38

ray's ini file reader is the preferred method for working with application config stuff, but if you want to work with text files, use the FileSystemObject

where: scrrun.dll,
register dialog: Microsoft Scripting Runtime
progid: scripting.filesystemobject

i'm typing this code in manually, so it might not be syntactful

<br />
<br />
dim fso as scripting.filesystemobject<br />
set fso = new scripting.filesystemobject<br />
<br />
dim txt as scripting.textstream<br />
set txt = fso.opentextfile("c:\mytextfile.txt")<br />
<br />
do while not txt.atendofstream<br />
   msgbox txt.readline<br />
loop<br />
<br />
txt.close<br />
set txt = nothing<br />
set fso = nothing<br />
<br />

-John

IN VBS how do I check if some software is installed using registry

SPGV15-Sep-02 23:17

SPGV

15-Sep-02 23:17

I need to get a path of an app's exe using registry,in VBS

Re: IN VBS how do I check if some software is installed using registry

Ray Cassick16-Sep-02 5:33

Ray Cassick

16-Sep-02 5:33

I would search the registry for the filename that you need the path to. If it is an exe file that is registered to a file ext then it will probably show up in there. Once you know it you can open the key in your script and check to see if it exists.

Dataenviroment

Maryam15-Sep-02 21:49

Maryam

15-Sep-02 21:49

I have an application that it connect to a dataenviroment Form by coding,now i want to connect a datagrid to my dataenviroment,but can not.
my code is:
dim myde as new Dataenviroment
myde.connection1.connectionstring="..."
myde.commands(1).activeconnection=myde.connection1
myde.commands(1).commandtext="My table name"
set datagrid1.datasource=myde
datagrid1.datamember=command1

In VB (automation) I want to make Powerpoint run in the invisible mode

SPGV15-Sep-02 21:18

SPGV

15-Sep-02 21:18

Dim powerpoint_4
Set powerpoint_4 = CreateObject("PowerPoint.Application")
powerpoint_4.Activate
Dim presentation_4_1
Set presentation_4_1 = powerpoint_4.Presentations.Open("C:\temp\sample.ppt ")

With this the PPT comes up, I do not wish PPT to come up
and make some changes to sample.ppt

Identifying DesignTime Mode for Forms

Firoz15-Sep-02 19:58

Firoz

15-Sep-02 19:58

Hi,

Is there any way for differentiating whether a Forms Constructor is
called at DesignTime (by the FormsDesigner) or at Runtime.

I have some code in a Forms Constructor that should be executed only when the
Application is Run, and not when the Form is opened by the Forms Designer.

Thanks,

Firoz

How to reset an AudioStream in VB?

DengJW15-Sep-02 19:52

DengJW

15-Sep-02 19:52

I am developing a mediaplayer by customising Windows Mediaplayer Control. The mediaplayer should have the ability to detect whether there is already an audio playback running on the Windows 98/2000. If there is one running, the mediaplayer should stop it and start to run its own.

I know there is a property in Mediaplayer control which is called AudioStream, the value of which has been set to -1 be default. But I don't know how to make use of it.

Any help are greatly appreciated.

DJ

problems with removing menu added to Word97

Mariusz Popiolek15-Sep-02 8:54

Mariusz Popiolek

15-Sep-02 8:54

Hi
I'm creating new menu and toolbar in AutoExec sub, and removing it in AutoExit. When AutoExit executes I can see that menu and toolbar dissapear, but when I delete .dot from autostart directory and launch Word they are back. But when I manually execute AutoExit then menu and toolbar dissapear forever (strange, isn't it). Here are my subs:

Sub AutoExec()
Dim PKICommandBar As CommandBar
Dim PKIMenu As CommandBarPopup
Dim ETSIMenu As CommandBarPopup
Dim lTest As Long
'menu
Set PKIMenu = Application.CommandBars("Menu Bar").FindControl _
(Type:=msoControlPopup, Tag:=sMenuName)
On Error Resume Next
lTest = PKIMenu.Height
If (lTest = 0) Then Set PKIMenu = Application.CommandBars("Menu Bar"). _
Controls.Add(Type:=msoControlPopup)
PKIMenu.Caption = sMenuName
PKIMenu.Tag = sMenuName
On Error Resume Next
PKIMenu.Controls(sETSIMenuName).Delete
Set ETSIMenu = PKIMenu.Controls.Add(Type:=msoControlPopup)
ETSIMenu.Caption = sETSIMenuName
With ETSIMenu.Controls.Add(msoControlButton)
.OnAction = "SignDocument"
.Caption = "Podpisz dokument"
End With
With ETSIMenu.Controls.Add(msoControlButton)
.OnAction = "Settings"
.Caption = "Ustawienia"
End With
'toolbar
On Error Resume Next
Application.CommandBars(sETSIMenuName).Delete
lTest = 0
Set PKICommandBar = Application.CommandBars.Add
PKICommandBar.Name = sETSIMenuName
With PKICommandBar.Controls.Add(msoControlButton)
.Style = msoButtonIconAndCaption
.FaceId = 22
.TooltipText = "Podpisz dokument"
.OnAction = "SignDocument"
End With
With PKICommandBar.Controls.Add(msoControlButton)
.Style = msoButtonIconAndCaption
.FaceId = 22
.TooltipText = "Ustawienia"
.OnAction = "Settings"
End With
PKICommandBar.Position = msoBarTop
PKICommandBar.Visible = True
End Sub

Sub AutoExit()
On Error Resume Next
Application.CommandBars(sETSIMenuName).Delete
On Error Resume Next
Application.CommandBars("Menu Bar").Controls(sMenuName).Delete
MsgBox ("exit")'that's why I can see that menu and toolbar dissapear when I close Word
End Sub

Thanks for any help

changing icon in toolbar(from file)

Mariusz Popiolek15-Sep-02 8:48

Mariusz Popiolek

15-Sep-02 8:48

Hi
I've created a toolbar in Office 97, but I don't know how to change the icon (I don't want to use standard icons). I would like to put icon data inside .dot file (is it possible?)

Thanks for any help

Reproduce Win Form

AB31383813-Sep-02 9:05

AB313838

13-Sep-02 9:05

Hi All,

I have an application where I want a WinForm to be transferred/reproduced in another machine and get the feedback from the person in the other machine.

This is useful for implementing approval for overrides from an approver.

Would highly appreciarte for useful clues/sample codes.

Rgds
AB

IDE

Nnamdi Onyeyiri13-Sep-02 6:58

Nnamdi Onyeyiri

13-Sep-02 6:58

anyone know of a gd free IDE for VB6, as i dont think vs.net supports it Frown | :(

Suspicious | :suss: Email: theeclypse@hotmail.com URL: http://www.onyeyiri.co.uk
"All programmers are playwrights and all computers are lousy actors."

Re: IDE

Ray Cassick13-Sep-02 7:22

Ray Cassick

13-Sep-02 7:22

As far as I know there was none that was able to do what the VS IDE could do (forms building).

I heard of folks running editors like CodeWrite and stuff to alloww them to edit and build code, but nothing that did the GUI stuff.

extracting safearray from a variant

Anonymous12-Sep-02 11:14

Anonymous

12-Sep-02 11:14

ok, I'm just starting to learn how to pass more complicated things from my C++ objects to vb (which I'm just starting to learn).

Currently I can't seem to figure out how to get my safearray out of the variant passed through my callback interface. This safearray needs to be passed back through a callback interface ACROSS process boundaries (no passing by ref allowed).

_____________________________________

the C++ side of this is as follows

SAFEARRAY *saHashCodes;
saHashCodes = SafeArrayCreateVector( VT_I4, 0, nNumHashCodes );

for ( U32 index = 0; index

Re: extracting safearray from a variant

Vi213-Sep-02 3:48

Vi2

13-Sep-02 3:48

You should also specify the VT_I4
var.vt = VT_ARRAY | VT_I4;
In ServerLink_ReturnPrivateHashList function you can have your array in "saHashArray" parameter. It will be the array of Long (not Integer!) values. You can obtain any value from him

Dim i As Long<br />
i = saHashArray(0)<br />
' or i = saHashArray(x), where x = 0,...,nNumHashCodes-1<br />
' or i = saHashArray(x), where x = LBound(saHashArray),...,UBound(saHashArray)

Or you can obtain whole array, but it's the same in it's usage

Dim arr() As Long<br />
arr = saHashArray

With best wishes,
Vita

Re: extracting safearray from a variant

Anonymous13-Sep-02 8:32

Anonymous

13-Sep-02 8:32

excellent, it worked like a champ! 3 books, 2 newsgroups and about 4 irc channels later your the first person that could answer that. I really appreciate the help!

problem with passing array parameter to the procedure

Mariusz Popiolek12-Sep-02 10:37

Mariusz Popiolek

12-Sep-02 10:37

Hi
I have some procedure:

Sub SomeSub(ByRef somearray() As Double)
'some code, it doesn't matter
End Sub

I'm trying to call it in this way:

Dim somearray(10) As Double
SomeSub (somearray)

And I get such error message(it's my translation from polish, so it might be different on your computers):

Compilation error:
Argument of type Array must be passed by reference (ByRef)

I don't know what is wrong.
I almost forgot to add, all the code is runned as a macro in Word97

Greetings

Re: problem with passing array parameter to the procedure

Nick Parker12-Sep-02 10:55

Nick Parker

12-Sep-02 10:55

Try adding the word Call in front of your routine call, this should do the trick, it works on my computer.

Private Sub Form_Load()

Dim MyArray(10) As Double
<code>Call</code> Some(MyArray)

End Sub


Sub Some(ByRef SomeArray() As Double)
    MsgBox "Hello"
End Sub

Nick Parker

Re: problem with passing array parameter to the procedure

Mariusz Popiolek12-Sep-02 11:29

Mariusz Popiolek

12-Sep-02 11:29

Great thanks. It works, somehow, VB is very strange.

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