Re: Visual Basic 6 Help in DLL - Visual Basic Discussion Boards

James Gohl14-Jul-04 21:34

14-Jul-04 21:34

Is there any way to intercept an image and be able to stop it. I am writing a security application and I am using the registry to stop applications running. By adding a gate in the HKCR\exefile\shell\run\command key I have successfully been able to block applications but the main problem is when an application is not loaded using the ShellExecute API i.e. it is loaded using the Shell("") command in VB instead. Do you have any ideas? Or are you going to tell me it can't be done based from your own knowledge?

TTFN! Big Grin | :-D

VB.NET and Outlook's "BeforeItemPaste" Event signature

joseph_rich_tx14-Jul-04 2:55

joseph_rich_tx

14-Jul-04 2:55

I am trying to respond to Outlook's "BeforeItemPaste" event. However, I am being notified by visual studio that the calling signature is wrong.

I think this is because the event's signature includes the param "clipboardcontent as Variant". Obviously VB.NET no longer supports a Variant data type. I have tried Object and VariantType, to no avail. How do I work around this? Thanks for the help.

.................
Dim WithEvents olExplorer As Outlook.Explorer

Private Sub olExplorer_BeforeItemPaste(ByVal ClipboardContent As VariantType, ByVal Target As Outlook.MAPIFolder, ByVal Cancel As Boolean) Handles olExplorer.BeforeItemPaste

MsgBox("got it! ")
Cancel = True

End Sub

JRich

problem in Dynamically adding objects of user control

Member 119551214-Jul-04 2:45

Member 1195512

14-Jul-04 2:45

Hello EveryBody
I implemented one ActiveX Control in Visual Basic 6.0. And I want to add instances of this control (Dynamically) in new control or new form. But VB is not allowing me to Set object to ActiveX control. (it allow to declare object but problem is in set operation). Eek! | :eek:

...every suggtion and help is regreated..

Re: problem in Dynamically adding objects of user control

Dave Kreskowiak14-Jul-04 3:33

Dave Kreskowiak

14-Jul-04 3:33

You might want to post the code your using so we can see what's going on. Adding the control is as easy as Dim myControl As New myActiveXControl and then adding it to the Form's controls collection.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: problem in Dynamically adding objects of user control

James Gohl14-Jul-04 8:33

James Gohl

14-Jul-04 8:33

Here try this it should allow you to create infinate instances of and object using a dynamic array... (First of all set the index property of your ActiveX object to 0)
{

Private Sub CreateNewActiveXObjectInstance()<br />
<br />
    Load ActiveXObject(ActiveXObject.UBound + 1)<br />
    'Object Upper-Boundary increases by 1 now<br />
    <br />
    ActiveXObject(ActiveXObject.UBound) = ActiveXObject(ActiveXObject.UBound - 1)<br />
    'If the previous line gives you an ERROOOOOORRRRRGH! then try setting<br />
    'the properties of the new object, bearing in mind you have just created<br />
    'a new instance in memory, all of its property values will be empty.<br />
    <br />
    'e.g.<br />
    ActiveXObject (ActiveXObject.UBound).[Property] = [Value]<br />
<br />
End Sub

Call this routine everytime you want to create a new instance of the object Smile | :)

};

Recognizing the MSHFlexGrid's Row on MouseMove Event

Ravi S.V.14-Jul-04 0:13

Ravi S.V.

14-Jul-04 0:13

Dear VB Gurus,
I want to get the row of the MSHFlexGrid's row on mouse move. How do i go about it?

Plz Help,
Ravi.

Visual Basic 6 Help in DLL

afrodit13-Jul-04 20:49

afrodit

13-Jul-04 20:49

I want to make a dll in vb 6 and use it in another project by vb6 too but i don't know how plzz help me Confused | :confused:

Re: Visual Basic 6 Help in DLL

Ravi S.V.14-Jul-04 0:21

Ravi S.V.

14-Jul-04 0:21

For using dll in the another project you have two ways:

One way is to add ur dll project in the client vb project and make references Project -> References. In the references window it will show you the dll project's name select that name and say ok. Now you can use your dll in your client project.

--Or--

Make the dll of your dll project. By making the dll vb6 automatically registers it on your system. If you want to use or deploy it on another computer you need to explicitly register it using regsvr32.exe. Then open your client project Goto Project -> References in the references window look for your dll name and select it and click on ok. Now you can use your dll in the client project.

The former is best way to debug your dll project from the client project.

Interface Question

beowulfagate13-Jul-04 20:27

beowulfagate

13-Jul-04 20:27

Are interfaces disposed when the go out of scope? Are the dispose methods of objects implementing the interface called when the interface goes out of scope?

Re: Interface Question

Dave Kreskowiak14-Jul-04 2:46

Dave Kreskowiak

14-Jul-04 2:46

beowulfagate wrote:
Are interfaces disposed when the go out of scope?

No, because there is really nothing to dispose. An interface is an implementation that a class must follow and the class disposes any resources it has to. The interface declaration itself doesn't go out of scope. An interface is essentially saying, "This is the framework your class must implement."

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

auto generating number

GaryKoh13-Jul-04 19:47

GaryKoh

13-Jul-04 19:47

hello
i have this problem with auto generation number via using function
the coding below is converted from vb6 and it is working in vb6
Public Function autoorderno() As String

Dim orderno As String
    Dim ordering As New Class1
    Dim order As New ADODB.Recordset
        order.Open "SELECT * FROM orders", cn, adOpenDynamic, adLockOptimistic, adCmdText
            auto = "000000"
                Do While Not order.EOF
                        order.Find "orderno ='Ord" & auto & "'"
                    If Not order.EOF Then
                        auto = Format(Str(Val(Mid$(auto, 5) + 1)), "000000")
                    Else
                        autoorderno = "Ord" + auto
                            Exit Function
                    End If
                Loop
                    autoorderno = "Ord" + auto
            Set order = Nothing
End Function

but some how in vb.net it say "value cannot be generated"
may i know what is wrong with the coding
thank you in advance

Gary

Re: auto generating number

Dave Kreskowiak14-Jul-04 2:36

Dave Kreskowiak

14-Jul-04 2:36

GaryKoh wrote:
but some how in vb.net it say "value cannot be generated"

Where does this message come from? It will not be generated by the code you posted, which is VB6 code, not VB.NET...

There is nothing wrong with this code other than it is not very effecient. Order numbers should never be reused, even if they have been deleted. This code will find holes in the order number sequence and re-use them. The detabase should have been written to generate ID's itself.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: auto generating number

GaryKoh14-Jul-04 19:59

GaryKoh

14-Jul-04 19:59

hello dave
so how i know you would answer
thank you
just want to know does the msdn webpage provide the suitable tutorial or faq i need to get the random number result i wish as the coding i provided?
can i have a link to the webpage please
thank you

Re: auto generating number

Dave Kreskowiak16-Jul-04 0:57

Dave Kreskowiak

16-Jul-04 0:57

There is no one article that will do what you want. Your requirements are a combination of a bunch of smaller techniques that need to be put together correctly.

What's with the "random" order number? I've never seen a requirement where the order number must be random. I've only seen "serial number" type order numbers.

How I've seen it done in the past, and I've done this myself, is to have a seperate table in the database that holds your databases status and statistics, such as the last used order number. Your code would call a stored procedure in the database that retrieves the last used order number, increments it, stores it back in the table and creates a blank order record in the "orders" table, using the newly created order number. Then this record is sent back to your program as a dataset (SELECT statement). Your app then fills in the details of the order and writes back the order record, without having to worry about the order number at all.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Upload

Verolix13-Jul-04 15:18

Verolix

13-Jul-04 15:18

How can I upload my VB.NET program here?

Re: Upload

Dave Kreskowiak13-Jul-04 16:12

Dave Kreskowiak

13-Jul-04 16:12

Just to store it? You can't. That's not what this site is about.

If your sending your code to another person on the board, you can't. You'll have to put the .ZIP file for your project where someone else can get to it and then post the link to the download.

If you're uploading an article, just use the article submission wizard here[^].

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

CE VB.Net Owner Drawn ListBox

Chris Reiff13-Jul-04 14:23

Chris Reiff

13-Jul-04 14:23

Greetings to all,

I am in need of some sample code. I've just been thrown into the CE development arena and need to write an Owner Drawn ListBox Control that will run under CE. It needs to display different fonts, fontcolor, and background colors on a line by line basis. I've not done this before and need a place to start. Any suggestions would be appreciated.

-Chris

Christopher Reiff

Re: CE VB.Net Owner Drawn ListBox

Dave Kreskowiak13-Jul-04 16:15

Dave Kreskowiak

13-Jul-04 16:15

Issues with owner drawing in the .NET Compact Framework would be better handled in the Embedded/Mobile forum. There are considerable differences between the two frameworks to justify having a forum just for mobile development.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

A complicated string...

Brad Fackrell13-Jul-04 10:11

Brad Fackrell

13-Jul-04 10:11

So much for figuring this out on my own Hmmm | :|

I’m trying to change the following string:

C:\this\directory\is\always\different

To:

C:\this\directory\is\the\new\one

I wanted to do this:

filePath = “C:\this\directory\is\always\different”

newFilePath = filePath.Replace(“is*”, “\is\the\new\one”)

Notice that I’m trying to use * as a wild card to include everything to the right of ‘is’. I don’t think its working.

'Is' – is always the same but filePath can be different each time the application is run. The only constant is the word 'is'. What I would like to do is find ‘is’ chop ‘is’ and everything to the right of 'is' and then add the new string, including ‘is’, to “C:\this\directory\”.

Did I say 'is'... Roll eyes | :rolleyes:

Brad

Re: A complicated string...

Dave Kreskowiak13-Jul-04 12:19

Dave Kreskowiak

13-Jul-04 12:19

There is no wildcard support in the .Replace() method. All you have to do is find the directory "\is\" using the .SubString() method. THis will tell you the legth of the string to need to start with, then you can append the new path to the beginning of the starting path.

Dim filePath As String = "C:\this\directory\is\always\different"
Dim newFilePath As String = filePath.SubString(1, filePath.InstanceOf("\is\")
newFilePath = Path.Combine(newFilePath, "\is\the\new\one")

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: A complicated string...

Brad Fackrell13-Jul-04 12:42

Brad Fackrell

13-Jul-04 12:42

That works perfect! Thanks Dave.

Brad

vb code

nazerudeen13-Jul-04 5:56

nazerudeen

13-Jul-04 5:56

vb code to display ms word document in a richtextbox

n

Re: vb code

Dave Kreskowiak13-Jul-04 12:13

Dave Kreskowiak

13-Jul-04 12:13

You can only do that if the Word document you are talking about is saved in .RTF format. If it's still in it's .DOC format, the RichTextBox will not display it properly. In that case, you'll have to either Shell launch the document so Word will open a display it or use the Word Object Library to open the document and display it.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: vb code

jonathan1515-Jul-04 5:29

jonathan15

15-Jul-04 5:29

If you are using VB6 you can use the web browser control instead of rich text box. This will display it as a word doc and even allow edits\saves etc. Dont know if VB.net does this though.

Jon

How to connect Microsoft Access Report in vb.net

Member 122179713-Jul-04 2:58

Member 1221797

13-Jul-04 2:58

Hi,

I have reports in Microsoft Access. Now i want to connect this report in vb.net.
I have done following
1. added reference of Microsoft Access Object Library 10.0
2. used following code
Dim accRpt As Object
accRpt = CreateObject("Access.Application")
accRpt.Application.OpenCurrentDatabase("E:\emp.mdb")
accRpt.Application.DoCmd.Maximize()
accRpt.Application.Visible = True
accRpt.Application.DoCmd.Maximize()
accRpt.Application.Visible = True
accRpt.DoCmd.OpenReport("city", Access.AcView.acViewPreview, "")
accRpt = Nothing
but when runs this code then directly Microsoft Access opens with report , i want to hide remaining functions of Access means,

menu etc.
How i hide this? , so only reports will display.
or Is there any other way to connect Microsoft Acces report in Vb.net.?"

Regards
Programmer2004

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