Visual Basic

4-Nov-08 21:45

Hi,

I'm currently working on a VB6 project witch has to be able to display texts in different languages(NL/US/FR/RU ect.). The problem as you all know with this is that the text end up looking like "???". To solve this i can set the regional settings in the control panel to the corresponding language. But this means that the computer has to restart every time you setup a different language.

All controls also have a Charset property but if i set those to the right value(for instance 204 for using russian) it doesn't seem to have any effect.

After some searching on the net i found out this is caused by the translation of unicode to ansi in the controls of VB6 (i don't know for sure that i'm using unicode). To solve this you can buy libaries that do this translation for you so the VB6 controls can't mess it up. But i have no money;)

Another solution would be to use Forms 2.0 controls that are able to handle unicode. But then i cannot redistribute my software. And they also didn't work (still showing ???).

After all of this it seems kind of impossible to solve this problem, but i cannot believe there isn't a solution. It does work if i set the regional settings to the right language, can't i do the same thing without using the regional settings? I really need help here.

Greetz, Willem

Eddy Vluggen4-Nov-08 22:14

Eddy Vluggen

4-Nov-08 22:14

willempipi wrote:
But then i cannot redistribute my software.

Why not? The .NET runtime is a free download, AFAIK.

willempipi4-Nov-08 22:30

4-Nov-08 22:30

.NET???

read this: http://support.microsoft.com/kb/193540[^]

Eddy Vluggen4-Nov-08 22:45

Eddy Vluggen

4-Nov-08 22:45

I mistook the term "Forms 2.0" for the .NET version.

Microsoft has an Interop Toolkit, which can be used to easily integrate forms from VB.NET in VB6 applications. That gives the option to use .NET to add new functionality to an old VB6 executable.

Not an answer to your question, but perhaps an option nonetheless.

Still no answer

willempipi4-Nov-08 22:53

4-Nov-08 22:53

Okey i thought you where talking about that...

I really need an answer for this question...

sairfan14-Nov-08 22:59

sairfan1

4-Nov-08 22:59

While using vb6 u can use resource file for multi language support

willempipi4-Nov-08 23:04

4-Nov-08 23:04

Could you be more specific?

Witch resource file?

sairfan14-Nov-08 23:12

sairfan1

4-Nov-08 23:12

my understanding is you want to give caption of control on ur forms in different languages, in vb addons there is an option to add resource file to ur project, just add resource file, in its text area add captions in different language, then programaticaly u can get captions of controls from resource file. for input text boxes you change their fonts to related language

Still no solution

willempipi4-Nov-08 23:39

4-Nov-08 23:39

The captions of my buttons/textboxes ect. are filled from a database, I cannot convert this to the usage of resource files cause of the functionallity of the program. I already tried changing the fonts and the charset property of the fonts but that didn't work as well.

sairfan14-Nov-08 23:45

sairfan1

4-Nov-08 23:45

this is the point where you are making the mistake, dont use database for captions, instead of database use resource file, please find example regarding using resource file in project, see msdn samples, there u find a sample using resource file, it is solution of ur problen coz it is also made for mulitlanguage support, if u cant file this sample i can mail u or tell u its exact name,

willempipi5-Nov-08 0:08

5-Nov-08 0:08

I'm sorry, but the usage of resource files is really not an option for me.

The application that i'm programming makes use of a database witch is also used by a remote application where you can dynamically update the captions(like an update server). I could use the resource file as a shadow for the database but that would mean reprogramming the hole application into the usage of resource files. And making a interfase for the shadown resource files and the database itself. This simply is too much work (application source is more than 65 mb).

ChandraRam5-Nov-08 0:57

ChandraRam

5-Nov-08 0:57

This[^] resource might help you.

willempipi5-Nov-08 1:45

5-Nov-08 1:45

Thank you for your link, i've seen it before. Maybe it's me, but i cannot read a solution for my problem on this page, although the title of this webpage refers to my problem.

ChandraRam5-Nov-08 4:09

ChandraRam

5-Nov-08 4:09

That site contains controls and code that you can purchase to use in your projects...

Check the write permission of any folder

sonnyh3-Dec-08 7:58

sonnyh

3-Dec-08 7:58

I have a similar project that currently use resource string. I need to support Arabic at run time. I got the same problem with switching languages in the control panel otherwise it will display ????

Have you found your solution? Please share. I'd move to database for the string table if I have to.

sunil goyalG4-Nov-08 20:49

sunil goyalG

4-Nov-08 20:49

hi all,
how can i check whether any folder contains the permission for write ?

Please suggest.

Re: Check the write permission of any folder

~Khatri Mitesh~4-Nov-08 23:39

~Khatri Mitesh~

4-Nov-08 23:39

Try this code.
This code set the permission. may be this Helps you.

Function SetPermissions()
        Dim strHomeFolder, strHome, strUser
        Dim intRunError, objShell, objFSO

        strHomeFolder = "C:\Test"

        objShell = CreateObject("Wscript.Shell")
        objFSO = CreateObject("Scripting.FileSystemObject")
        If objFSO.FolderExists(strHomeFolder) Then
            intRunError = objShell.Run("%COMSPEC% /c Echo Y| cacls " & strHomeFolder & " /t /c /g everyone:F ", 2, True)

            If intRunError <> 0 Then
                Wscript.Echo("Error assigning permissions for user " _
                & strUser & " to home folder " & strHomeFolder)
            End If
        End If
    End Function

Thanks
Khatri Mitesh

~Khatri Mitesh
khatrimitesh@hotmail.com
Bikaner (Rajasthan)
INDIA

Nested (recursive) class

wilson_borda4-Nov-08 19:22

wilson_borda

4-Nov-08 19:22

I am writing a code where I need to construct a chain of points. I have the code in C, but for my limitations in this language I am trying to convert it to VB.NET. The problem is:

My main class is

public class Point
public x as double
public y as double
public shrared pl, pr as new point() 'previous and next point
End class

My goal is to be able to access the evolution of the point. So, I need this type of declaration
...
dim p0 the new Point()
...
p0.pr.x = 2
p0.pr.y = 4
...

What's happening is that when I that when I set p0.pr.x = 2 or p0.pr.y = 4 (or another property of pl or pr) all the values of x and y are changed. That is, p0.pr.pr.pr.pr...pr.x = 2 and p0.pr.pr.pr.pr...pr.y = 4. That should not happen. Can you tell me how to change the value of a variable only at a level of p?

Sorry but my english is terrible!!!

Thanks in advance
Wilson

Guffa4-Nov-08 22:04

Guffa

4-Nov-08 22:04

wilson_borda wrote:
What's happening is that when I that when I set p0.pr.x = 2 or p0.pr.y = 4 (or another property of pl or pr) all the values of x and y are changed.

No, that's not what's happening. What's happening is that the single instance that you reference with the static variable changes. Regardless of how many Point instances you create, they all share a single pl and a single pr instance.

If you are trying to create a linked list, the pl and pr variables can't be static. However, if you change them to be member variables, you can't create new instances of them in the constructor or you will create an eternal loop that fills the memory with Point objects.

Despite everything, the person most likely to be fooling you next is yourself.

wilson_borda5-Nov-08 1:37

wilson_borda

5-Nov-08 1:37

Thanks for reply. You are correct. I try to change to member variables and a exception occurs... I can't solve this problem. But you are right, the pl and pr variables can not be static...

Steven J Jowett4-Nov-08 22:13

Steven J Jowett

4-Nov-08 22:13

If I unserstand correctly you wish to store a list of Points so you could have something list this :-

Public Class PointHistory

Private _myPoints As List(Of System.Drawing.Point)

Public ReadOnly Property Count()
Get
Return _myPoints.Count
End Get
End Property

Public ReadOnly Property Point(ByVal Index As Integer) As System.Drawing.Point
Get
Return _myPoints(Index)
End Get
End Property

Public ReadOnly Property CurrentPoint() As System.Drawing.Point
Get
Return _myPoints(Count)
End Get
End Property

Public Sub Add(ByVal NewPoint As System.Drawing.Point)
_myPoints.Add(NewPoint)
End Sub

End Class

wilson_borda wrote:
Sorry but my english is terrible!!!

Never applogies for trying.

Steve Jowett
-------------------------
Real programmers don't comment their code. If it was hard to write, it should be hard to read.