|
Hi,
I have some weird problem and being new to VB I have no idea why it does not work. I created a splash form with a login button. With a successful login the code goes frmSplash.Hide frmMain.Show
This works, now I am on frmMain.Show.
On this form I have 3 command buttons. All I want to do after any command button hit is do frmMain.Hide then i.e. frmAdmin.Show.
Well .Show is not available only ShowWhatsThis? I do not get the frmAdmin to display and I have no clue as to why.
What did I miss?
Thanks
samantha
|
|
|
|
|
I think you'll have to post some code as I can't see how you can be getting the .ShowWhatsThis and not .Show for a Form. How did you create the frmAdmin, using the wizard? If you used the wizard what type of Form did you create?
Michael
|
|
|
|
|
BOYAKASSHAA!!
I'ee agree with Micheal...
Need more input
Confusios say "Man who run in front of car get tired, Man who run behind car get exhausted."
|
|
|
|
|
Make 3 forms.
1 called frmSplash
1 called frmMain
1 called frmAdmin
--- frmSplash code ---
Option Explicit
Private Sub Command1_Click()
If Text1.Text = "username" And Text2.Text = "password" Then
frmMain.Show
Unload Me
Exit Sub
Else
GoTo Wrong
End If
Wrong:
If MsgBox("You have entered a wrong username or password.", vbRetryCancel, "My Project") = vbCancel Then
Unload frmMain
Unload frmAdmin
Unload frmSplash
Else
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
--- frmMain code ---
Option Explicit
Private Sub Command1_Click()
Load frmAdmin
frmAdmin.Show
Unload Me
End Sub
Thankz, Drew
|
|
|
|
|
The reason ".ShowWhatsThis" and no ".Show" happened because you mustn't of called the "form" function. ie: Command1 function has no argument of .Show, closest match is .ShowWhatsThis
Thankz, Drew
|
|
|
|
|
Has anyone got a simple implementation for this :
I'm working on a web site for a client who has some existing data in x999y format where x and y are alpha and 999 is numeric. Each part of the format varies in length.
I need to be able to sort in the proper order you would expect so that S11B comes after S1VZ (i.e, 11 > 1).
Since this has to run on an ASP page either VBScript or JavaScript would be good (if you can do it in SQL that would be excellent as the DB could do all the work!).
I haven't thought of a fast solution - I've had a looooog week and can't think anymore ....
Thanks in advance, jlb.
|
|
|
|
|
You can do it within the database, in which you may wish to include in your Select statement the same values but put together in another order(i.e. left(some_field, 1) + right(some_field, 1) + substring(some_field, 2, 2)). You would not populate that field, however when the user select the "some_field" column to sort by, you can sort your other column instead. Hope this helps some.
Nick Parker
|
|
|
|
|
Hi
Can anyone tell me how to create a multilingual application in VB?
S.S. Ahmed
ss_ahmed1@hotmail.com
http://glowbutton.faithweb.com
|
|
|
|
|
|
thank you very much
S.S. Ahmed
ss_ahmed1@hotmail.com
http://glowbutton.faithweb.com
|
|
|
|
|
http://www.microsoft.com/globaldev is a great starting point.
|
|
|
|
|
Thanks
S.S. Ahmed
ss_ahmed1@hotmail.com
http://glowbutton.faithweb.com
|
|
|
|
|
I'm looking on suggestion on how to check and see if an application is running. The referenced knowledge base article is old and I was thinking that there has to be a better way of doing this in VB6...
Thanks to those who responded to the original posts!
|
|
|
|
|
I'm not sure what you found in the article, there are two popular techniques.
1. Use FindNextWindow, looking for a window with the same name as yours. If found then exit.
This is the most common method. It fails (or is at least difficult) if the window title is variable or there are many different windows that might or might not be open.
2. Check the list of running processes looking for your .exe name. There should be only one. If two found then exit.
Thanks for the help,
Bill
|
|
|
|
|
Hey there,
I own a very small specialty autoparts store. Mainly we deal on stock parts for classic cars and performance parts for later models and racing teams. I have some very small experience with VB but it's not enough to get me through this program. What I need is simply a way of managing a small inventory of parts in a sequential file database. I'd like to use a .txt or .doc file so I can print easily/email my complete inventory list to customers.
I simply want one form for me to be able to enter new products into this file (I have a product code and some other info. I've already made this form). I then need a restock button to bring up an input box that will allow me to adjust inventory for new amounts.
The only other form is an invoice form for my end only. I want to be able to check and make sure we have enough stock, warn me if we don't have enough and finally just tally a total cost. This invoice just needs to print out to a .txt or .doc as well.
The forms are done. I just need the code. It's mostly basic stuff and I really don't need anything fancy. I'd like it done before Tuesday afternoon, but I'm thinking a good VB coder could knock this out pretty quickly.
I'll pay through PayPal, CC, or Snail Mail. Contact me on my hotmail account as it's easier to check when I'm away.
Reply if you're interested or drop me an email: sammrichardson@hotmail.com
-Sam Richardson
|
|
|
|
|
How can I to load dll "abc.dll" to my project if I want to use in my project the export functions of that dll ???
|
|
|
|
|
Have a look at the code below, this is one way of loading a DLL in VB. Use the loadlibrary function to load the dll.
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" _
(ByVal lpLibFileName As String) As Long
Private Declare Function LoadString Lib "user32" Alias "LoadStringA" _
(ByVal hInstance As Long, ByVal wID As Long, ByVal lpBuffer As String, _
ByVal nBufferMax As Long) As Long
Private Sub Form_Load()
Dim hInst As Long, lResult As Long, x As Long
Dim LCID As Long, sLcid As String
Dim resString As String * 255
Dim sCodePage As String
sCodePage = String$(16, " ")
Label1.AutoSize = True
Label1.Caption = ""
LCID = GetThreadLocale() 'Get Current locale
sLcid = Hex$(Trim$(CStr(LCID))) 'Convert to Hex
' Display decimal value of the LCID (Hex in Parentheses)
Form1.Caption = "LCID " & LCID & " (" & sLcid & ")"
x = GetLocaleInfo(LCID, LOCALE_IDEFAULTANSICODEPAGE, _
sCodePage, Len(sCodePage)) 'Get code page
sCodePage = StripNullTerminator(sCodePage)
' Load dll with string table resource.
' Might need to change path for the resdll.
hInst = LoadLibrary("resdll" & sLcid & ".dll")
' Get string with ID 101.
lResult = LoadString(hInst, 101, resString, 255)
With Label1.Font
.Name = "Lucida Sans Unicode"
.Size = 14
.Charset = GetCharSet(sCodePage) 'Convert code page to charset
End With
' Display the localized string.
Label1.Caption = resString
End Sub
S.S. Ahmed
ss_ahmed1@hotmail.com
http://glowbutton.faithweb.com
|
|
|
|
|
Help needed on how to backup and rstore files (not copy) to/from floppy drive from Visual Basic application.
Any help appreciated.
|
|
|
|
|
Anyone know how to get the DOMAIN\username of the person who last accessed a file?
Regards,
George A. Roberts IV
Developer, Nexus Bulletin Board System
http://www.nexusbbs.net/
|
|
|
|
|
I don't believe that information is retained. Good luck though.
Thanks for the help,
Bill
|
|
|
|
|
Hi!!!
Suppose I added a tab control in the form. Can you tell me how can I give different colors to the tabs. Is there any api functionality you aware of. Please help me in this regard.
Imran Farooqui
|
|
|
|
|
I have one field.text with F = "(2*V)+30". In another table
I have the value of V = 50 . Then HOW I CAN TO HAVE R = F, getting R = 130 .
All aid I thanks
|
|
|
|
|
Following order of operations you should get 130:
1. V = 50
2. (2 * V) = 100
3. 100 + 30 = 130
There is nothing wrong with that statement, it should evaluate to 130.
Hope this helps, let me know.
Nick Parker
|
|
|
|
|
hi..
I am trying to design a 'What You See Is What You Get' (WYSIWYG) type Report writer tool... I want the user to be able to place labels, pictures and fields from a Database on to the report.. Can anyone give me tips on how i should do this??
The DataReport designer which comes with Visual Basic does everything i want to do.. Is there a way that i could use the 'design view' of the DataReport at run-time in a VB or VC application and then invoke the actual report through a command button or a menu-option??? In other words, how can i place a DataReport in design mode on a form at Runtime?? Can it be done????
please help
ananth
|
|
|
|
|
This probably isn't the answer you're looking for but hopefully it will help.
If you can afford to purchase a product you should check out ActiveReports by DataDynamics, they have an end user design component. Their website is located at www.datadynamics.com
I have no affiliation with them, other than being a satisfied customer.
Good Luck!
|
|
|
|