Since the thread is already solved, I feel you need to also know why this happens... This is just for your FYI...
When using Preserve keyword, you can resize only the last array dimension. For example, if your array has only one dimension, you can resize that dimension because it is the last and only dimension. However, if your array has two or more dimensions, you can change the size of only the last dimension and still preserve the contents of the array.
For Example
Private Sub Command1_Click()
Dim MyArray() As String
ReDim Preserve MyArray(1, 1) '<~~ YOU CAN DO THIS
MyArray(1, 1) = "1. Blah Blah"
ReDim Preserve MyArray(1, 2) '<~~ YOU CAN DO THIS
MyArray(1, 2) = "2. Blah Blah"
ReDim Preserve MyArray(1, 3) '<~~ YOU CAN DO THIS
MyArray(1, 3) = "3. Blah Blah"
u = 2
ReDim Preserve MyArray(u, 3) '<~~ YOU CANNOT DO THIS
End Sub
An Alternative is
Private Sub Command1_Click()
Dim MyArray() As String, MyTempArray() As String
ReDim Preserve MyArray(1, 1) '<~~ YOU CAN DO THIS
MyArray(1, 1) = "1. Blah Blah"
ReDim Preserve MyArray(1, 2) '<~~ YOU CAN DO THIS
MyArray(1, 2) = "2. Blah Blah"
ReDim Preserve MyArray(1, 3) '<~~ YOU CAN DO THIS
MyArray(1, 3) = "3. Blah Blah"
u = 2
ReDim Preserve MyArray(u, 3) '<~~ YOU CANNOT DO THIS
ReDim MyTempArray(u, 1)
'Transfer data from MyArray to this array
End Sub
But my problem is that when adding the item to list box it will add "FOUND: wildcat" 7 times to the list box because there is 7 characters found in wlciadt.
First things first
Change this line List1.AddItem "FOUND: " + v to List1.AddItem "FOUND: " & v
I actually want the 'x' enabled. But I want to apply code to it.
@Jbennet
Thanks, that worked. Just one problem. Whether Yes or NO is chosen. The program still closes. Any reason why?
Oh Ok I understand :D
Is this what you want?
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = vbFormControlMenu Then
Ret = MsgBox("Do You want to Exit?", vbOKCancel)
'~~> If user decides against it...
If Ret = vbCancel Then Cancel = 1
End If
End Sub
rabbithaveit commented: Very helpful person. Persistent with help lol+1
Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
'~~> Copy File/Folder
Private Const FO_COPY = &H2
'~~> Does not display file names
Private Const FOF_SIMPLEPROGRESS = &H100
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
End Type
Private Sub VBCopyFolder(ByRef strSource As String, ByRef strTarget As String)
Dim op As SHFILEOPSTRUCT
With op
.wFunc = FO_COPY
.pTo = strTarget
.pFrom = strSource
.fFlags = FOF_SIMPLEPROGRESS
End With
'~~> Perform operation
SHFileOperation op
End Sub
Private Sub Command1_Click()
'~~> Copy Folder C:\temp\1 to C:\temp\2
'~~> Change this to relevant folders
Call VBCopyFolder("C:\temp\1", "C:\temp\2")
End Sub
A text box show current date(like 24-03-2009). I write in other textbox 3. I want when I write 3 then the textbox (24-03-2009) automatically increase month like 24-06-2009. how it possible?
Dim mycontrol As Control, toclear As Long
toclear = 0
For Each mycontrol In Me.Controls
If TypeOf mycontrol Is TextBox Or TypeOf mycontrol Is ComboBox Then
If Len(Trim(mycontrol)) = 0 Then toclear = toclear + 1
End If
Next
If toclear > 0 Then
clarifyclear = True
Else
clarifyclear = False
End If
If clarifyclear = False Then
'~~> Your rest of the code....
I have made few changes in the code to show it as an example. Please make relevant amendments for your original code...
Private Sub Command1_Click()
Dim mycontrol As Control
'~~> What is "newstudentry" in your code???
'~~> This works for me...
'~~>Me.Controls will ensure all controls in that form
'~~> are covered...
For Each mycontrol In Me.Controls
If TypeOf mycontrol Is TextBox Or _
TypeOf mycontrol Is ComboBox Then
'~~> combination of len and trim
If Len(Trim(mycontrol)) = 0 Then
MsgBox "empty"
Else
MsgBox "Not empty"
End If
End If
Next
End Sub
I would suggest the API way as it gives you more flexibility... See picture attached...
Please place a Command Button on the form so that you can exit.
Paste this code in the general declaration of the form...
Option Explicit
Private Declare Function DeleteMenu Lib "user32" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib "user32" _
(ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private ReadyToClose As Boolean
Private Sub RemoveMenus(frm As Form, remove_restore As Boolean, _
remove_move As Boolean, remove_size As Boolean, remove_minimize As Boolean, _
remove_maximize As Boolean, remove_seperator As Boolean, remove_close As Boolean)
Dim hMenu As Long
'~~> Get the form's system menu handle.
hMenu = GetSystemMenu(hwnd, False)
If remove_close Then DeleteMenu hMenu, 6, MF_BYPOSITION
If remove_seperator Then DeleteMenu hMenu, 5, MF_BYPOSITION
If remove_maximize Then DeleteMenu hMenu, 4, MF_BYPOSITION
If remove_minimize Then DeleteMenu hMenu, 3, MF_BYPOSITION
If remove_size Then DeleteMenu hMenu, 2, MF_BYPOSITION
If remove_move Then DeleteMenu hMenu, 1, MF_BYPOSITION
If remove_restore Then DeleteMenu hMenu, 0, MF_BYPOSITION
End Sub
Private Sub cmdClose_Click()
ReadyToClose = True
Unload Me
End Sub
Private Sub Form_Load()
'~~> Remove the Close system menu item and the menu separator.
RemoveMenus Me, False, False, False, False, False, True, True
End Sub
'~~> Cancel if ReadyToClose is false.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = Not ReadyToClose
End Sub
Hi hkdani, you don't need to "Microsoft Shell Controls and Automation reference" to just tackle the "date time window" in control panel. The code that I gave above is good enough :)
If you are looking to interact with it then my suggestion is that you use the inbuilt calendar of vb6....
else here is the code
Private Sub Command1_Click()
'~~> launces the date time window in control panel
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
End Sub
Reading the contents of text file is not a problem. i couldn't understand your rest of the query... Do you mean that if there is a word "True" in your text document which if found, you want to display the message "Finish"... if yes then try this
Sub ReadtextFile()
Dim intEmpFileNbr As Integer, Entireline As String
intEmpFileNbr = FreeFile
'~~> Change this with the relevant filename
strEmpFileName = "C:\Temp\Test.txt"
'~~> open the file as readonly
Open strEmpFileName For Input As #intEmpFileNbr
Do Until EOF(intEmpFileNbr)
'~~> Read line
Line Input #intEmpFileNbr, Entireline
If InStr(1, Entireline, "True") <> 0 Then
MsgBox "Finish"
Exit Do
End If
Loop
'~~> Close file
Close #intEmpFileNbr
End Sub
the problem is you are trying to launch a PDF file, not an EXE file. If you want to open the pdf file, you'll have to use the path to adobe. Something like "c:\program files\adobe\adobe.exe aa.pdf" or something along those lines. the Shell function doesn't decipher extentions. It runs an application. Plain and simple. For a POSSIBLE solution to launching a program based on the extention (in cahoots with the registries, HKCR) you might want to look at the API call "shellexecute." That one does wonders ;)
You are right that it runs only applications. Even if you mention the filename with the path and the corresponding exe ("c:\program files\adobe\adobe.exe aa.pdf") or as a matter of fact ("c:\windows\notepad.exe aaa.txt") it still won't run... that's what i am trying to imply. working on it right now. should come up with the code ASAP :-)
there goes my idea of playing with strings.... ;) is it still insecure if we define those constants in activex controlls??? can they be reverse engineered?
Simply because, data stored in a access database can be hacked easily... I have a software which can decode the password protected access database...
Would really appreciate if you can send me the code. i'll try that out as well.
Can we play around with strings??? for example lets take a string "WORLD" suppose i want to replace "O" with "cv44v" or any other letter say "L" with say "df5gh" and write an active x dll for the same... that way we can encrypt/decrypt the PASSWORD and USERNAME... (it is just a thought...)
I didn't find creating login screens and saving the data in access database difficult...
However, I was wondering if there is any other way we could do that, i mean saving the username and passwords in any other file rather than a database and encrypting the same...
