Visual Basic

getting right string value from textbox with arabic text in vb6

25-Dec-12 3:03

Welcome to the VB.NET forum. I suggest you post your question in a more relevant forum, including a code-snippet of the code that throws the error.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

Member 970722123-Dec-12 0:44

Member 9707221

23-Dec-12 0:44

Dear(s)

I somehow stuck. Pleaes help me in this regard.

I am trying to incorporte Arabic language support in my application. I have done the following.

1. Took Textbox with Arial Unicode MS Font and Arabic charset.
2. At backend I change my field to NVARCHAR to hold unicode.

Alls went well execpt, When i took input in arabic from user, the textbox gives me this ÚÇãÑ ÑÔíÏ after taking input. I ll try to convert it into string but fail.

And in SQL Server the Insert statement saves the same it get from textbox not the arabic text.

Please help me in this regard
Ahsan Sheraz

Re: getting right string value from textbox with arabic text in vb6

Eddy Vluggen23-Dec-12 14:17

Re: getting right string value from textbox with arabic text in vb6

23-Dec-12 14:17

The VB.NET IDE is available for free, as is the runtime. I strongly suggest you switch your platform. VB6 is no longer actively supported.

To make the decision easier; this is a problem with text-encodings. VB.NET would convert it to UTF and be done with it - no more "weird characters".

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

Member 970722123-Dec-12 20:34

Member 9707221

23-Dec-12 20:34

Dear Brother

Thanks very much for your reply, but I am working on an ERP having 7 fully functional modules, I cannot switch over right now the platform. Please help me.

Let me tell you this junk is displaying correct value in text box or crystal repots having font supports arabic charset. But at the time of saving in (Insert statement) textbox.text gives me this junk, How can I play with them.

Thanks in advance
ahsan sheraz

Re: getting right string value from textbox with arabic text in vb6

Dave Kreskowiak24-Dec-12 5:06

Re: getting right string value from textbox with arabic text in vb6

24-Dec-12 5:06

There's nothing to play with. First, VB6 was know to have bad support for Right-to-Left text.

But, the textbox will display any text it's given, provided the font being used supports the appropriate characters. It'll look like junk if the font doesn't support it. So, where exactly are you seeing this "junk"?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Eddy Vluggen25-Dec-12 8:26

Help, Win32_DefragAnalysis in VB6 code

25-Dec-12 8:26

Member 9707221 wrote:
Dear Brother

I'm neither.

Member 9707221 wrote:
Let me tell you this junk is displaying correct value in text box or crystal repots having font supports arabic charset. But at the time of saving in (Insert statement) textbox.text gives me this junk, How can I play with them.

Like I said, it's a dead language. If you want to use it, you'll be doing a lot of archeology.

http://blogs.msdn.com/b/vsarabic/archive/2012/04/05/install-arabic-vb6-applications.aspx[^].

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

nghia09t322-Dec-12 3:26

nghia09t3

22-Dec-12 3:26

i want to use class Win32_DefragAnalysis(WMI) to scan status of other volume, but it is not active, exactly, the For-each is not work, please help me,

<pre lang="vb">Private Sub defrag_analysis()
On Error Resume Next
Dim item
Dim nameSQL
Dim wmiOBJECT
Dim itemCOLLECTION
Set wmiOBJECT = GetObject("Winmgmts:\\.\root\cimv2")
nameSQL = "select * from Win32_DefragAnalysis" ' Where VolumeSize > 0 "
Set itemCOLLECTION = wmiOBJECT.ExecQuery(nameSQL)
For Each item In itemCOLLECTION
'not print properties of item
MsgBox "VolumeSize : " & item.VolumeSize
MsgBox "Name : " & item.VolumeName
MsgBox "FreeSpace :" & item.FreeSpace
MsgBox "AverageFileSize : " & item.AverageFileSize
Next

MsgBox "jump here"
End Sub
</pre>

Re: Help, Win32_DefragAnalysis in VB6 code

Eddy Vluggen23-Dec-12 14:15

Timer for Internet connection

23-Dec-12 14:15

Since when does VB6 have a "for-each"? Did I mention it's a dead language? Why are you still using it?

The VB.NET IDE is available for free, as is the runtime. I strongly suggest you switch your platform.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]
They hate us for our freedom![^]

Listview vb6.0

Ainnop22-Dec-12 3:08

Ainnop

22-Dec-12 3:08

Hi, I need some help on printing data on a listview having 20 columns of data, how do i do that

Re: Listview vb6.0

Thomas Daniels22-Dec-12 3:19

Thomas Daniels

22-Dec-12 3:19

Hi,

Have a look here:
http://stackoverflow.com/questions/643385/adding-items-to-listview-at-runtime[^]

In some cases, my signature will be longer then my message...
ProgramFOX

puzzle game

jasdeep788221-Dec-12 4:11

jasdeep7882

21-Dec-12 4:11

code for puzzle game having 9 comand buttons using if statement

Re: puzzle game

David Mujica21-Dec-12 4:33

David Mujica

21-Dec-12 4:33

No one is going to just give you code. You must present what you have done so far and describe where you need assistance, then they might show you a way to solve your problem.

Good luck.

Re: puzzle game

Richard MacCutchan21-Dec-12 6:30

Richard MacCutchan

21-Dec-12 6:30

See How to get an answer to your question[^].

One of these days I'm going to think of a really clever signature.

bolepks20-Dec-12 8:51

bolepks

20-Dec-12 8:51

Does anyone have a code for VB program to set the time example 30 minutes could turn off the Internet (ADSL), much like internet cafes?

Re: Timer for Internet connection

Dave Kreskowiak20-Dec-12 9:46

Re: Timer for Internet connection

20-Dec-12 9:46

And you expect someone to just hand over their hard work for you to turn in as your own??

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

bolepks20-Dec-12 9:56

bolepks

20-Dec-12 9:56

Re: Timer for Internet connection

Dave Kreskowiak21-Dec-12 4:11

instr function not accepting arguments VB.net

21-Dec-12 4:11

In that case, you'll be writing a proxy server. When a client connects to the proxy for the first time, you record the current time. Every time the client makes another request, you check the current time against the one that was recorded on first connection. Greater than 30 seconds? Don't forward the request to the destination server.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

xman12519-Dec-12 2:10

xman125

19-Dec-12 2:10

Cannot get instr function to work .net?

Using VB.net
For some reason, the 'instr' function and the 'string.indexof' is the same.
The problem is that one of the 2 string arguments, is a variable that is passed from the calling subroutine (not the literal characters) and it does not recognise the 'match'.
When I type in the literal characters with " " -- it works ok.
Here is a copy of the line that is not working.
'm' is the positional marker / 'largetxt' the body that is being searched and 'smalltxt' is the string that is being searched for.

intx = InStr(m, mainTxt, smallTxt)

The variable 'smallTxt' is the problem ---- if I have:
intx = InStr(m, mainTxt, "house") --- it works ok

Also ... same thing for:
intx = largeTxt.IndexOf(smallTxt, m)
Cheers

Dave Kreskowiak19-Dec-12 3:13

19-Dec-12 3:13

InStr is only there for converted VB6 code. It's been deprecated. Use string.IndexOf() instead.

Without seeing the contents of the variables, it's impossible to tell you why it isn't working with any confidence. These functions are case-sensitive, so that might be your problem, but...

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Zaf Khan19-Dec-12 5:37

Zaf Khan

19-Dec-12 5:37

Here is a sample for you...

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim maintext As String
    Dim smalltext As String
    Dim foundpos As Integer
    Dim startpos As Integer
    'startpos = 6     'should test not found
    startpos = 0      'should test matched
    maintext = "Jack and Jill"
    smalltext = "and"
    foundpos = maintext.IndexOf(smalltext, startpos)
    If foundpos > 0 Then
        'found
        MsgBox("match found at character " & foundpos)
    Else
        'not found
        MsgBox("no match found")
    End If

End Sub

xman12519-Dec-12 20:44

xman125

19-Dec-12 20:44

Thank you both .
It the 'indexof' function also not working .... it gives a true result may one time in 20 (when I know it is a true hit).
I think there may be a bug in vb.net. It doesn't matter what I do, it comes up with -1 all the time.

xman12519-Dec-12 20:50

xman125

19-Dec-12 20:50

Is there an alternative method ?.... .... I could spend 5 years tyring to get this one working - it's driving me crazy.

Zaf Khan19-Dec-12 21:05

Zaf Khan

19-Dec-12 21:05

Yes theres INSTR,

If INSTR(Look-in-this-string", "For-This-String") > 0 Then
  'REM A Match Was Found
Else
  'REM No_Match_Was_Found
End If

and if you assign the result to a variable then the variable will give you the position...

LocationId = INSTR(Look-in-this-string", "For-This-String")
If LocationId > 0 Then
  'REM A Match Was Found
Else
  'REM No_Match_Was_Found
End If

Eddy Vluggen20-Dec-12 1:56