|
Sorry, but this a non-doable thing. Enums are named constants so their values are determined at compile time.
|
|
|
|
|
I got this proggie from the net.It has 2 parts(the source code) :the math part written in VC and the user interface written in VB.
The VC part is copiled as an OCX. So,since my only interest is to modify the user-interface, i open the VBProject and i "regsvr32" the OCX. As i try to make it .EXE (without modifying anything) it said:
"Line 15: Cannot load control txtText; license not found. Line 73: Cannot load control RichTextBox; license not found."
In Project/Components there where 6 references, but as i open the VBP file with notepad i see only 4. References for fm20.dll and richtx32.dll are NOT there.
So, i tried to "regsvr32" them but it did not work !
PLEASE HELP!THANK YOU!
|
|
|
|
|
To use the RichTextBox control in your application, you must add the Richtx32.ocx file to the project. When distributing your application, install the Richtx32.ocx file in the user's Microsoft Windows SYSTEM directory. For more information on how to add a custom control to a project, see the Programmer's Guide.
Cheers
It is Illogical to define an inventor by his invention
|
|
|
|
|
I want to access the current function name and class name in the body of the same function.
E.g: I have a class -class1 inside which I have a function- fnTest
private function fnTest() as string
dim sName as string
sName=???
//I want sName value to be : "Class1/fnTest"
end function
Sanjay
|
|
|
|
|
how could i parse this string:
"smiley<8><1315643>" say "test message" (dead)
to this type:
smiley say: test message (dead)
but smiley and test message could be different each time.
|
|
|
|
|
You will need to provide a bit more information than what you've given. To parse the values <8> and <1215643> would have to mean something. I'm not sure where those numbers come from. You will need thier translation table. It's all downhill from there.
|
|
|
|
|
How do create a floating window in VB6 that minimises when the main application is minimised.
I've tried using the SetWindowPos prcodedure contained in the user32.dll but the floating form doesn't minimise when the main application minimises.
Cheers
|
|
|
|
|
Just show the form with the main form as a parent.
Load frmChild<br><br />
frmChild.Show 0, frmMain
|
|
|
|
|
I’ve have a VB6 question about treeviews and tooltiptext. I would like to have node specific tooltiptext appear as I hover over the different nodes in a treeview (e.g. As Internet explorer does as I hover over my favorite links). Is there a way to accompish this?
thanks
|
|
|
|
|
Under VB6 I have created an application and added a Data Environment to it for accessing an MSAccess database. Having created a Command in it to represent a view(query) in the database I have dragged and dropped it on to a blank form.
When I run the app at this stage the form is correctly filled with the first record in the view. However, after making a call to the function of the same name as the view on the data environment on application startup to make sure the data is fully populated, I then added buttons to the form for navigation using MoveNext, etc (e.g. dataEnv.MyView - then dataEvnv.rsMyView.MoveNext). They don't work!!!!!
The recordset is being navigated correctly (checked via inspection in the Locals window) and the cursor is being changed, but the controls on the form do not change.
To add to the mystery, if I add a grid control to the form and bind it to the same view in the data environment, all of the records appear correctly in the grid. When the currently selected record is changed in the grid, the original controls update accordingly!!!!!!!!!!!!!!
Is there some subtle configuration that I have missed?
Derek Lakin.
I wish I was what I thought I was when I wished I was what I am.
Salamander Software Ltd.
|
|
|
|
|
I don't know what I did wrong on the first place but it has automagically fixed itself now
Derek Lakin.
I wish I was what I thought I was when I wished I was what I am.
Salamander Software Ltd.
|
|
|
|
|
I have an excel spreadsheet consisting of three columns
Column A is an account number, B and C a numerical value in each. I would like to place a flag in column D if there are repeats of the same numbers eg duplicates in column A.
I have been tying the following but it wont work. Does anyone have any ideas please?
=IF(COUNTIF(Range1,A2)>1,"Duplicate","")
In cell C1 is the title Range1. Cells A2 through C4000 are the named range Range 1
I have tried a couple of bits and pieces to do a very simple flag but cant seem to get them to work. The first was the one above, and another is this one:
=SUM(IF(A1:A2000=A1,1,0))
The idea being if any of the cells from a1 to a2000 is a duplicate of a1 then it gets an integer in the column I write the formula to. I had hoped if I copied it to each cell then it would look through the whole list. Not so though as I just get a long list of 1's rather than 1's and 0's.
If anyone does know of a way to id duplicates in this way I would be mst appreciative.
|
|
|
|
|
I ran into the following problem while working with SaveFileDialog.
When saving a file, and existing file is selected, the common dialog box always returns DialogResult.Cancel.
Is there a workaround?
Dim SaveDlg As New SaveFileDialog()
Dim RetCode As DialogResult
RetCode = SaveDlg.ShowDialog()
' .NET bug????
' When replacing existing file,
' Always returns DialogResult.Cancel
If (RetCode = DialogResult.Cancel) Then
...
End If
|
|
|
|
|
does capicom requiere admin rights to run?. I build a small app to encrypt/decrypt strings and run fine under my win2k account (i'm a local admin). I created a user account with defualt permissions and the compiled app fail with a error message like "Permission denied". ¿any way to avoid this without giving the user admin right?. Thanks for reading...
Reality.sys is corrupted!
Reboot the universe Y/N?
|
|
|
|
|
Does anybody know a way of accessing the internet options through a vb command where I can set certain parameters to display certain things from explorer.???(ie: not display some type of content) I know in C, there is the "BOOL InternetSetOption()" function that you can do this with but i really need to know how to do this in vb. Any help or hints to do this would help me out a great deal. Thanks very much!
What we do in life echos in eternity!
|
|
|
|
|
Use API Calls
Here is an example
Const INTERNET_OPTION_END_BROWSER_SESSION = 42
Private Declare Function InternetSetOption Lib "wininet.dll" Alias
"InternetSetOptionA" _
(ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As
Any, ByVal lBufferLength As Long) As Integer
Public Function flushCredentials() As Integer
Dim h As Integer
h = InternetSetOption(0, INTERNET_OPTION_END_BROWSER_SESSION,
0, 0)
flushCredentials = h
End Function
It is Illogical to define an inventor by his invention
|
|
|
|
|
An app (VB) that we have had running for a few years now has been working fine on American and European versions of Windows. Now someone has tried to run it on Chinese Windows, and it's not working. I have traced it down to one specific thing, as follows:
The code builds up Modbus communications messages one byte at a time using VB's Chr$() function, like this:
strMessage = Chr$(1) & Chr$(3) & Chr$(0) & Chr$(48) ... etc.
Now, as we all know an unsigned byte can be from 0 - 255. Also, in a single byte character system, ASCII characters also go from 0 to 255. Thus, it is quite natural to want to add such bytes beyond 127, which would be negative values _if_treated_as_signed_bytes_:
strMessage = strMessage & Chr$(245) & Chr$(136)
Now, on most systems this works just dandy. But I have discovered that whenever we try to add a byte (character) > 127 under Chinese Windows, it instead ends up with 0 there - it doesn't seem to get it right.
All suspicions point to MBCS (multi-byte character set) issues, but I was under the impression that VB handles this automatically.
Can anyone suggest how I might successfully add bytes > 127 to a VB string, using VB methods? When I get totally desperate I can call to a C++ DLL to do it, but there's a fair bit of work rewriting the VB code for that so it's a very last resort!
--
Jason Teagle
jason@teagster.co.uk
-----------------------------------------------------------
A list of programming resources I use:
ML: www.windev.org, www.codecipher.com, www.beginthread.com
MB: www.codeguru.com, www.codeproject.com
NG: comp.lang.java.*
OI: www.php.net
-----------------------------------------------------------
|
|
|
|
|
Note: the answer was provided somewhere else - use ChrB$() instead of Chr$() - I didn't know this existed
|
|
|
|
|
Do you know how should i create a safearray in VB?
rechi
|
|
|
|
|
Dim vx As Variant
Dim v(2) As String
v(0) = "First Argument"
v(1) = "First Argument"
vx = v
It is Illogical to define an inventor by his invention
|
|
|
|
|
Hello,
I need my project to expire after 30 days of use. How can I do this?
If you dont have the code just tell me the process to make it a trial one then I'll research a little more.
Thanks in advance
adol
|
|
|
|
|
Would your app. connect to the internet?
Cheers,
Simon
"Every good work of software starts by scratching a developer's personal itch.", Eric S. Raymond
|
|
|
|
|
My app would not connect to the internet.
adol
|
|
|
|
|
There are several ways to do this, however one of the simpilest ways is to store a value in the registry (i.e. - installation date) and then when the application loads everytime you can grabb that value from the registry and check using DateDiff to see if time has expired. There is a lot of code out there explaining how to use the registry in your application so I won't go into the details, but again this is just a suggestion.
HTH
Nick Parker
|
|
|
|
|
Thank you very much for your help Nick!!!
Maybe this is the easiest way to do it.
Somebody told me I can use the Hard Disk serial number or something like that to control the use of an app, does anybody knows what he was talking about?
Best regards,
adol
|
|
|
|