|
Hi,
How to set Control Panel's Language settings (Regional and Language Options)from VB Application. When I change the Language Option to Swedish Language, I want to Show those date Formats in all the Forms of the Application.
I am using the VB 6.0.
Through Shell command i am able to access the code but not able to proceed ahead.
Help in this regard is highly appreciated.
Regards
Bhuvanesh
|
|
|
|
|
Hi,
most control panel stuff should be only be manipulated interactively by the user, and not be
modified by a program. What would happen if different programs started to set different values
for the same system properties?
I really don't know how to change system settings programmatically either.
I do know how to tell an app to use specific settings tho:
- you can specify date, time, currency formats explicitly every time you need them (say in ToString)
using one of the method overloads
- you can specify an overall Culture for a thread (see Thread.CurrentCulture)
- AFAIK you can't specify it for the entire app (Application.CurrentCulture works on a thread too).
Hope this helps.
|
|
|
|
|
|
Dear Gurus,
I am trying to write an application to manipulate Publisher 2003 usign VB 2008.
Please find below my calling code in the module,
Module Module1
Declare Function GetCusorPos Lib "user32" Alias "GetCursorPos" (ByVal lppoint As Pnt) As Boolean
End Module
and here the declaration of structure Pnt,
Public Structure Pnt
Dim Ptx As Integer
Dim Pty As Integer
End Structure
The actual lines of calling code
' Stoploop declared as boolean at beginning
Dim Po As Pnt
Po = New Pnt
StopLoop = True
While StopLoop
GetCusorPos(Po)
tbMouseX.Text = Po.Ptx
tbMouseY.Text = Po.Pty
System.Windows.Forms.Application.DoEvents()
End While
actually there are two textboxes which will receive the input.
The error is
Initially, cannot find an entry point in DLL
Later, the values of Ptx and Pty are zero.
Please guide me what i have done wrong and for the past two days i am searching on and on... Thanks in advance.
|
|
|
|
|
Hi,
there are several problems here:
- the method you want is called GetCursorPos, not GetCusorPos;
that is good enough a reason why it can't be found
- GetCursorPos needs a single argument: the pointer to a structure of type POINT
so:
1) your declare statement is wrong; it needs the ByRef keyword
2) your GetCursorPos invocation is wrong; you passed a value (i.e. a copy of the current content of your struct).
Hope this helps.
|
|
|
|
|
Dear Luc Pattyn
Many thanks, the problem is solved.
I initially put getcursorpos, but later i inadvertently made a typo.
The real thing is using Byref instead of Byval.
Also can you kindly answer one more thing, is there any other way to access APIs without messing up with names and byref, byval etc., please guide me.
|
|
|
|
|
Guys how to read the memory card using vb.net
pls send me the code ..
regards
rajesh
-
|
|
|
|
|
You'll need to be more descriptive. Every memory card I've ever wanted to read has been accessible through a drive letter.
|
|
|
|
|
sir,i want the code for that,can you have please share with me
code should be in Vb.net
regards
rajesh
-
|
|
|
|
|
am using mastpage ang membership provider. i want to be able to load menu and submenu dynamically. when a user login. i dont want to do this on each form load. how else can i achieve this
|
|
|
|
|
Don't you want the ASP.NET forum instead?
|
|
|
|
|
|
Firstly before you Post, Google
Secondly VB6 is Dead and Buried, why would wanna punish your self by still learning anything in vb6 style. try any of the .NET Languages.
http://www.google.co.za/search?hl=en&q=how+smtp+used+in+vb+6.0+&btnG=Google+Search&meta=[^]
Next time you must google before you ask someone who a thing is done
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
I need to pass a variable from one procedure to another in visual basic, can anyone help me by sending me a small example
|
|
|
|
|
What Version of Vb are you using (Hope not vb6), because i have no plan in helping you if you still use that(vb6 is dead). Explain Exacly what you want and by showing us what have you done so far, lets see your code or you Procedure.
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
Just because a language is no longer supported by its maker does not mean it is dead. A language is "dead" when no one uses it anymore. There are plenty of legacy applications written in Visual Basic 6 that I'm sure will need to be updated in the years to come.
Private Sub A (ByVal Param As String)
' Do something with Param
End Sub
To pass it, call A("string") .
|
|
|
|
|
Hi
Private Sub Month_Click()
Worksheets(SetMonth).Range("M1").Select
Count6 = 0
Do
Count6 = Count6 + 1
ActiveCell.Value = "0"
ActiveCell.Offset(1, 0).Activate
Loop Until Count6 = Count5
need to pass Count6 to Procedure1
Sub Procedure1()
SetMonth = "August"
Count7 = 0
Do
Worksheets(SetMonth).Range("M1").Select
Bill1 = Application.InputBox("Enter July Amount?")
ActiveCell.Value = Bill1
ActiveCell.Offset(1, 0).Activate
Count7 = Count7 + 1
Loop Until Count7 = Count6
Worksheets(SetMonth).Range("A:K").Select
Worksheets(SetMonth).Columns("A:K").AutoFit
End Sub
Does this mean then that I change the following or am I misunderstanding, its been a while since I wrote visual basic script:
Private Sub Month_Click(ByVal Count6 As String)
and
Sub Procedure1(Count6 As String)
|
|
|
|
|
No, I wrote that as VB.Net. For VBScript make it Sub Procedure1(variablename) . Look for the Passing Variables into a Subroutine section on VBScript in a Nutshell[^].
|
|
|
|
|
i am not understand your ans. so pls. describe it
|
|
|
|
|
Can i trap crystal report pop up msg in vb 6.0
|
|
|
|
|
|
i used google but i can't find ans proper
& here i used crystal report this sof connect with any technology vb 6.0, vb.net ..... so give me ans in with any tech if u know in vb.net then give ans.
Thanx
|
|
|
|
|
From what I know you can only use Crystal Reports 11.5 with .Net.
Here at work we use 7-8.5 in VB6 with no problems, but I'm not sure what you mean by "trap the message box".
|
|
|
|
|
when i run project (vb 6.0) & open at a time more then 5 report (Crystal report 8.5) then it will give me error
Run-time error '-2147189547'(80047cd5)
there are not enough concurrent access licenses to log you on. This system has 5 concurrent access license. Please try again later, or contact your system administrator to obtain more licenses. Licenses can be purchased direct from Seagate Software or through the Segate Software Online Store.
Which pop up in crystal report but i wan't to trap this error in vb 6.0 here i put on error goto command but due to the error is pop up in cr so it is not worked so give proper solution for that.
Thanx
|
|
|
|
|
have you tried a "try... catch" block to grab the error and do something with it?
Like:
Try
rpt.Load(rptfile)
CrViewer.ReportSource = rpt
Catch ex as Exception
MsgBox(ex.Message.ToString)
Finally
rpt.Close
End Try
If that wont work.. then it might be the CR 8.5 will only let you have 5 reports open on your computer... no matter what. In that case you'll have to buy more licenses.
|
|
|
|