|
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 
|
|
|
|
|
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.
|
|
|
|
|
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?
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
How can I upload my VB.NET program here?
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
So much for figuring this out on my own 
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'...
Brad
|
|
|
|
|
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
|
|
|
|
|
That works perfect! Thanks Dave.
Brad
|
|
|
|
|
vb code to display ms word document in a richtextbox
n
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
You will have to modify your Access database
Here is an example
It has a menu toolbar to direct to various printers or email
'http://www.attcanada.net/~kallal.msn/msaccess/DownLoad.htm
' Acesss97 example With ms-access interface hidden:
And here is the method to call it.
I tested this with another Access program but should work with VB.
You can even remove the Access Key Icon or set to your own
in the upper corner, can't remember how but have done it.
Option Compare Database
Option Explicit
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWNORMAL = 1
Private Const SW_HIDE = 0
Private Declare Function apiSetForegroundWindow Lib "user32" _
Alias "SetForegroundWindow" _
(ByVal hWnd As Long) As Long
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Sub test()
'http://www.attcanada.net/~kallal.msn/msaccess/DownLoad.htm
' Acesss97 example With ms-access interface hidden:
Dim accRpt As Access.Application
Set accRpt = CreateObject("Access.Application")
With accRpt
.Application.OpenCurrentDatabase ("C:\WordVBA\Kallal Word Merge Easy Samples\WordMerge22\WordMerge22.mdb")
.Application.DoCmd.Maximize
.Application.Visible = True
Call apiSetForegroundWindow(.hWndAccessApp)
'Call apiShowWindow(.hWndAccessApp, SW_SHOWNORMAL)
Call apiShowWindow(.hWndAccessApp, SW_SHOWMAXIMIZED)
' Call apiShowWindow(.hWndAccessApp, SW_HIDE)
' .Application.DoCmd.OpenForm "frmDefaultPrinterList"
'displays the custom toolbar named CustomToolbar in all Microsoft Access windows that become active:
.Application.DoCmd.ShowToolbar "Rides Print", acToolbarYes
'DoCmd.ShowToolbar
.Application.DoCmd.OpenReport "Contacts", Access.AcView.acViewPreview
'Set the focus to MSACCESS
'Dim lngAcc As Long
' lngVal = FindWindow("OMain", ByVal 0&)
' lngAcc = SetFocusAPI(lngVal)
'must close form to exit second app 'acReport=3;acObjStateOpen=1
Do While .SysCmd(acSysCmdGetObjectState, acReport, "Contacts") = acObjStateOpen
DoEvents
Loop
.Quit acQuitSaveNone
'MsgBox "Print"
End With
Set accRpt = Nothing
End Sub
|
|
|
|
|
Hi All,
I want to view inbox of outlook Express in my application.
How to??
Regards
 Be Humble in Victory and Strong in Defeat. -Het
|
|
|
|
|
Hi
I have used WebBrowser control and i want to save the entire webpage including pictures etc.
i have called ExecWB method of WebBrowser control with OLECMDEXECOPT_DONTPROMPTUSER flag, but it opens save as dialog box.
I want automatically save the webpage without using save as dialog box.
"Is there any way of save as webpage?"
regards
programmer2004
|
|
|
|
|
I'd like to know the answer to this myself. Were you able to get the form to run in a Web browser? Specifically IE?
|
|
|
|
|
Hi
How to find which windows API(.dll) is getting called when working with some events.
for e.g. when click on windows open menu, save menu, print menu.
once API knows then how to find all function list and syntax of that functions?
Please anyone can help me?
Regards
|
|
|
|
|
Basically, you can't. This would require very advanced debugging skills and a kernel debugger with a checked build of Windows running. You can't do it on a standard install of Windows using the debugger in the VS.IDE.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
