Code:
Code:
Public Sub AddItem(ByVal Item As Variant, ArrDim As Variant)
ReDim Preserve ItemArray(0 To lCount, 6)
ItemArray(lCount, ArrDim) = Item
devonknows
Last Activity: Aug 28 '08, 12:30 AM
Joined: Nov 30 '06
Location:
-
Problem with ReDim
Hi, im working with the CRJ Array class and im trying to change it into a 2D array, but when i change the AddItem function to a 2d array i get subscript out of range when i add the second item into the array and it flags up the ReDim Preserver line.
Code:
... -
Ok ive found something that allows me to 'Glassify' the form background and it can be found here VB-Helper HowTo Transparent Forms
That makes the form transparent but... the transparancy in the image is still showing up the color of the form itself, is there anyway that i can keep the transparency in the image? without the color of the form background showing up in the image control.
Kind Regards
Devon -
Hide Form, Keep Controls...
Ok what i want to do is completely hide the form but keep the Image box showing, ive seen this done before but im not sure how to do it..
I just want to make it so i can only see the image control on the form, not the form itself can anyone help me.
Kind Regards
Devon -
GD & Transparent Gifs
Ok ive been wracking my brains over this for absolutely ages and cant find a simple answer anywere not even on the php.net site so i was wondering if you could help me.
I have designed a gif file in photoshop with transparent backgrounds, but when i use
[PHP]$im = imagecreatefrom gif($imgname)[/PHP]
the transparent images are showing up as white and i cant seem to figure out how to keep the transparent background within... -
Send keystrokes to foreground windows
Hi, i was wondering if there was a way to send keystrokes to the foreground window? Im using GetForegroundWi ndow() api call.
Ive tried using SendKeys but it just doesnt seem to work.
Any ideas
Kind Regards
Devon -
Just thought id bump this in hope of a response
Kind Regards
DevonLeave a comment:
-
Just thought i would offer a few modifications here if not for you then for others that would like to know.
Im assuming searchString is a variable (Which it would be if you was entering the search string into a textbox of some sorts), if so then the sql statement is not valid, beacuse it will just search the table for the word 'searchstring'.
This is the Old One.
...Code:• Sql = "Select * from tblTableName where SearchField
Leave a comment:
-
I think you'll be better off using the query unload method. (Form_QueryUnlo ad) as not only can you stop the code from unloading you can also check how it is being closed wether it is being forcably shutdown by windows, by task manager or by client.
so summet like
...Code:Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If Len(Text1.Text) < 1 Or Combo1.ListIndex = -1 Then MsgBox "Please
Leave a comment:
-
SendMessage to Tray Icon
Visual Basic 6
Ok the problem im having is that im searching the process list to see if an application is running, if it isnt open it (Ive got that bit already) the only problem is, is that it opens and goes straight to system tray.
What i want to do is send a command to it to make it open, ive looked at some tutorials n stuff and if u had the window handle it would be SW_SHOW. But how do i send that command to an exe rather... -
its not that i need to keep count.
i need to find a form with a certain name. and if i find it, then Show the form, but as stated before the each frm in Forms. only loops through the list of open forms but its the forms that arnt loaded i need loop through
but without creating a case select with every form name in as this is unpractical for distribution of my control.
Kind Regards
Devon...Leave a comment:
-
When i add this to the property page for the user control, and then access the property page when i click Custom on the properties for my user control i get
'Method or Data Member not Found' and it highlights 'Me.Controls.Ad d.
im not sure if i mentioned earlier that i want the control to add during design time, for example the toolbar control, when you click add button, the toolbar control on the form automatically adds...Leave a comment:
-
i tried what you asked but wen i used
dim frm as Form
for each frm in forms
if frm.name = arrFrm(Index)
next
all it does is it searches through the forms that are already open/loaded
but with the amount of forms that i have it would be inpractical and it would use laods of resources loading them all.
is there anyway to loop through the forms that arn't open/loaded?
Kind...Leave a comment:
-
Just bumping this up
any help would be appreciated
Kind Regards
Devon...Leave a comment:
-
Hmm, the difference being ure using a new version of Visual Basic or your in .NET that might be were the confusion came in, apologies for that.
I hope i offered a breif insight into what you needed
Kind Regards
DevonLeave a comment:
-
One way for you to do that, is convert it to a single, you will get about 8 characters from the example you gave above,
[code=vb]
dim Result as single
Result = 21.256545865896 6
Result = csngl(Result) '// Result for This = 21.25655
MyLabel.Caption = Result
[/code]
Or you can cut the length via the Left$ sub
[code=vb]
dim Result as Double
Result = 21.256545865896 6...Leave a comment:
-
Forms List
Is there anyway to list all the forms that in the application itself?
I know if you do
It returns a list of all the open forms, but what i need is a list of all available forms in the application, I was just wondering if that was possible at all.Code:Dim oFrm as Form For Each oFrm in Forms msgbox oFrm.Name Next oFrm
Kind Regards
Devon -
If i may, Just adding alittle error checking on that
[code=vb]
If List1.Listcount > 0 then List1.Listindex = List1.Listcount - 1
[/code]
Stop any errors being triggered on the unlikely event that the Listbox is cleared, or items are removed.
Kind Regards
Devon...Leave a comment:
-
Personally for a start, you are better taking out your
' On Error Goto cmdokError '
This is stopping you receiving your Debug messages as it is
just canceling the update, so you dont know where the error
is being triggered
Have you opened the Connection via RS.Open?
[CODE=vb]
Dim conn as New ADODB.Connectio n
Dim rs as New ADODB.Recordset
conn.Connection String = "your_connectio n_string_here"...Leave a comment:
-
Ive added MSR reference to a project but the only way i can get it call that error is if i have too many arguments inside the Dir(), Ive run a sample app with the code below, n it seems to work, give it a try, if not could you post the code around it, might help us get a little more insight
If Possible could you show how the path is assigned to the variable.
[code=vb]
If Not Dir("C:\Windows ", vbDirectory)...Leave a comment:
-
Can no-one help me in this matter? Adding a label to a usercontrol during design time via the UserControl property page? if anyone can help id be most appreciated.
Example. When you highlight your user control that has been placed on your form, and click "Custom.." in your properties window, you get the properties window that you have assigned (Custom or VB built in) I have a text box and a command button, so when the user...Leave a comment:
No activity results to display
Leave a comment: