Visual Basic Discussion Boards

hariinfosys126-Apr-06 18:58

26-Apr-06 18:58

Original String:
Ki KiE:สวัสดีค่ะ โปรแกรม โอเอ็มเอส โดย บริษัท เอ็มเอสแอล ซอฟต์แวร์

Problems Facing:

1. The missing '00' in the begining and trailing part of the generated string
2. The white spaces within the original string (in THAI) show up junk characters instead of SPACE.

Please check this by pasting the source code attached and help me out in generating Correct output.

thanks in advance.

Correct Output which i am expecting to generate

004B00690020004B00690045003A00200E2A0E270E310E2A0E140E350E040E480E3000200E420E1B0E230E410E010E230E2100200E420E2D0E400E2D0E470E2100200E400E2D0E2A00200E420E140E2200200E1A0E230E340E290E310E1700200E400E2D0E470E2100200E400E2D0E2A00200E410E2D0E2500200E0B0E2D0E1F0E150E4C0E410E270E230E4C

Present Output which is wrong

4B00690014004B00690045003A0014002A0E270E310E2A0E140E350E040E480E300E1400420E1B0E230E410E010E230E210E1400420E2D0E400E2D0E470E210E400E2D0E2A0E1400420E140E220E14001A0E230E340E290E310E170E1400400E2D0E470E210E400E2D0E2A0E410E2D0E250E14000B0E2D0E1F0E150E4C0E410E270E230E4C0E

Code responsible for conversion:

'-------FUNCTION CALLS -----------

Dim bytes() As Byte = ConvertStringToByteArray1(msg)
Dim str As String = bytetohexa(bytes)

'------ FUNCTION DEFINITIONS ---------

Public Shared Function ConvertStringToByteArray1(ByVal stringToConvert As String) As Byte()

Return (New System.Text.UnicodeEncoding).GetBytes(stringToConvert)

End Function

Private Function bytetohexa(ByVal bytes() As Byte) As String
Try

Dim sHex As New System.Text.StringBuilder(2 * bytes.Length)
Dim i As Integer

For i = 0 To bytes.Length - 1 Step 1
sHex.AppendFormat("{0:X2}", bytes(i))
Next

Return sHex.ToString().Replace(" ", String.Empty)

Catch ex As Exception
Return (vbNull)
End Try

End Function

One who is in search of knowledge.. should give up pleasure . visualliser -2006 A.D.

How to detect the style of user window?

cylix200026-Apr-06 17:34

cylix2000

26-Apr-06 17:34

Some XP user use the XP form style, some of them disable the style to use the classic one.
However, this style really affect the look of my form.
How can I know what is this setting in user computer?

Re: How to detect the style of user window?

kasik26-Apr-06 23:03

kasik

26-Apr-06 23:03

You can P/Invoke UxTheme.dll which controls the window styles in XP like this...

<DllImport("UxTheme.dll", _
CallingConvention:=CallingConvention.Winapi, _
CharSet:=CharSet.Auto)> _
Private Shared Function IsThemeActive() As Boolean
End Function

If this function returns true, the user is running a theme, if it returns false then the user is running 'Windows Classic Style' - no themes.

Hope this helps Smile | :)

Cheers,
Will H

Re: How to detect the style of user window?

cylix200027-Apr-06 2:19

cylix2000

27-Apr-06 2:19

Thank you so much and It is really a great hint for me,
but it does not work by copy and paste.

Where should I place it in my module ?

Thank you~

Re: How to detect the style of user window?

kasik27-Apr-06 2:31

kasik

27-Apr-06 2:31

To add it to a module you'll have to do two things...

1) Change the line

Private Shared Function IsThemeActive() As Boolean

Public Function IsThemeActive() As Boolean

(i.e. remove the word Shared and change the functions visibility to Public)

2) Add

Imports System.Runtime.InteropServices

to the top of your file.

I havent done any VB.Net in a while so I hope that works Smile | :)

Cheers,
Will H

insert image in vb.net form

ezajan26-Apr-06 15:34

ezajan

26-Apr-06 15:34

hi, i would like to insert a picture,(logo) of da company as a background and insert button ENTER on that.but i dont know how,sir, could u pls help me on doing that..thanx a lot.

Re: insert image in vb.net form

atregent26-Apr-06 17:43

atregent

26-Apr-06 17:43

You can specify a BackgroundImage for a form and place your buttons and other controls on the form as normal.

Other things that might be better for what you want are placing a PictureBox on the form with the logo in it. To make sure it stays behind the other controls, from the Format menu, choose Order > Send to back.

Or, place a Panel control on the form and set the Background image of it to your logo. You can then place controls on the Panel control itself (panels are container controls)

Hope that helps!

Where is invisible problem in the code here?

JUNEYT26-Apr-06 12:01

JUNEYT

26-Apr-06 12:01

Hello!

This sample procedure extracts email addresses and adds to database. However, it is successfully adding the first address and creating empty records for the others. I decided to test the procedure with vb.net and took out adding the database section. It worked perfectly. So I would like to know what is causing not to add other emails except the first one.

Thank You

Sub AddEmails()

Dim GetEmails
Dim SrchKey
Dim xPos
Dim x1, x2
Dim xAddr

GetEmails = Request.Form("emails")

xPos = 1
x1=Instr(xpos,GetEmails,VbCrLf)

DO WHILE xpos <= len(Getemails)

x1=Instr(xPos,GetEmails,vbCrLf)
x2=Instr(xPos+1 ,GetEmails,vbCrLf)

If x1 = 0 or x2 = 0 Then Exit Do

If xPos = 1 Then
xAddr = Mid(GetEmails,1,x1-1)
Elseif xpos > 1 Then
xAddr = Mid(GetEmails, x1, x2 - x1)
End If

If len(xAddr) > 4 Then

'check here if email address is not exist in the database

SrchKey = "SELECT * FROM emails WHERE email="& "'" & xAddr & "';"

Call InitializeConnection()
Call Establish_Recording(SrchKey)

If ObjectRecord.RecordCount <= 0 Then

ObjectRecord.Close
ObjectConnection.Close
Set ObjectRecord = Nothing

Call InitializeConnection()
Call InitializeRecordSet("Emails")

'PROBLEM IS CAUSED BY THE FOLLOWING STATEMENTS
'IT IS ADDING THE FIRST ADDRESS BUT NOT THE OTHERS

ObjectRecord.AddNew
ObjectRecord("email") = xAddr
ObjectRecord("Accept") = True

ObjectRecord.update

ObjectRecord.Close
ObjectConnection.Close
Set ObjectRecord = Nothing

Else
ObjectConnection.Close
End If

xAddr = ""
xpos = x2

End If
LOOP

Response.Write ("Email have been added!")
Response.End

End Sub

Re: Where is invisible problem in the code here?

Garner T27-Apr-06 15:20

Garner T

27-Apr-06 15:20

This is just a guess. Wouldn't the ( xAddr="" ) set a blank each time the program made a loop?

no xaddr return the value of an email address

JUNEYT28-Apr-06 0:39

JUNEYT

28-Apr-06 0:39

Hello!

Thanks for your respond. Xaddr returns a value eact time in the loop. I have tested the code with vb.net. I think having connection to database or recordset inseide the loop is causing the problem even though connection is getting closed and object record set to nothing.

how to move a picturebox when resizing the form?

ADY00726-Apr-06 10:14

ADY007

26-Apr-06 10:14

Hello, I want to know how to move a picturebox when the form is resized! I know that I want to put code in the Form1_Resize handler. But i dont know what to code in there! please help me Big Grin | :-D

Thanks alot

Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.

Re: how to move a picturebox when resizing the form?

isroavi26-Apr-06 17:00

isroavi

26-Apr-06 17:00

The picture box will move automatically if you set the control to anchor.
eg. picturebox.anchor = Bottom

raj

How to install a Third Party in another Computer

ADY00726-Apr-06 10:09

ADY007

26-Apr-06 10:09

Hello, I have a problem with this third party program. I installed the DevX program. Now this is the problem, that if a computer does not have this program installed than my program do not open because this third program isn't installed in that computer. How can i use my with the third program in it on another computer without installing the third program and that pc.

Can this thing happen pls?

Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.

VBS Join Domain via IE window

Bri4hire26-Apr-06 8:00

Bri4hire

26-Apr-06 8:00

Can anyone help me with with bringing up an IE window that prompts to first change the computername and second prompts for the username/password to join the domain?

Retrieve text file in VB.Net

kids1726-Apr-06 6:26

kids17

26-Apr-06 6:26

Hi,
I have a question. How do you retrieve data from a textfile and have it displayed in VB. Net?

thanks for your help.

Re: Retrieve text file in VB.Net

isroavi26-Apr-06 18:23

isroavi

26-Apr-06 18:23

you can use IO.StreamReader(Server.MapPath("sms.txt")) to read ur text file.
or file open dialog box to open a file.

raj

Re: Retrieve text file in VB.Net

J4amieC26-Apr-06 22:00

J4amieC

26-Apr-06 22:00

Server.MapPath is only for a web environment. For a windows forms app you would need to know the whole path.

Current blacklist
svmilky - Extremely rude | FeRtoll - Rude personal emails | ironstrike1 - Rude & Obnoxious behaviour

Format Floppy

johnjsm26-Apr-06 5:45

johnjsm

26-Apr-06 5:45

Hi,
Does anyone know how to format a floppy disc without using DOS or Windows format windows. I am looking for code to format a floppy.

Re: Format Floppy

progload26-Apr-06 14:24

progload

26-Apr-06 14:24

Here is a starting place:

http://www.vbcity.com/forums/topic.asp?tid=6975&highlight=ark%7Cdisk%7Cio[^]

progload

Visual styles problems

hertz_j26-Apr-06 5:13

hertz_j

26-Apr-06 5:13

This is driving me mad. I have been working on windows forms application for a while and suddenly straight out of the blue the visual style for the buttons stopped working. That is, they go back to looking like buttons in Windows 2000. All other controls that support visual styles seem to be working ok.

Does anyone know anything about how to fix this? The really wired thing is that when I tried to do a new form in the same project all works ok for a few compilations and then the buttons just go back to ugly mode again.

By the way I’m using .Net 1.1 and visual studio 2003.

Regards Johan

Re: Visual styles problems

hertz_j26-Apr-06 5:19

hertz_j

26-Apr-06 5:19

I just found the solution to the problem, here it is:

Just after calling Application.EnableVisualStyles() call Application.DoEvents()

Regards Johan

DateTimePicker in Windows Form

G7236026-Apr-06 3:28

G72360

26-Apr-06 3:28

Hi,

I have a form where some selectioncriteria can be set. The form contains some comboboxes and also some datetimepicker's.

I want the following: when the form is loaded, I don't want any date to be shown in the datetimepicker's. Only when the user clicks the control, a date can be selected.

I tried:
dteFixDate.Value = Nothing , but this is not allowed.
dteFixDate.Text = "" , when the form is loaded, the current date shows in the control.

In fact, I want to use the values of the datetimepicker's in my SQL. So when no date is set (blank datetimepicker text), the date is not to be taken into account.

Does anyone know a way to do this. Or am I totally wrong in what I'm doing and is there an easier, cleaner way to obtain the result?

Thanks in advance, Confused | :confused:

Re: DateTimePicker in Windows Form

atregent26-Apr-06 17:32

atregent

26-Apr-06 17:32

I don't think you can set a DateTimePicker value to null/nothing/etc.

DateTimePickers have a .ShowCheckBox property which puts a checkbox next to the date. With the .Checked property set to false, the control is effectively disabled (but it still shows a date). As soon as the user selects a date, .Checked = True.

All you need to do is .ShowCheckBox = True and .Checked = False when you load the form. When you want to get the date just see if .Checked = True, indicating that the user has entered a date.

Hope that helps!

scanning documents via TWAIN

Suraj Jain26-Apr-06 3:23

Suraj Jain

26-Apr-06 3:23

Hi ..
am very knew to VB

I have to design a software which can scan documents and enter its details in a Access Databse .

My problem is the scanning part ..
I want to know how can Twain_32.dll help or how to call this dll file ..

Although i have gone through many ocx files.. but they are paid ..

so i decided for going for the windows own twain utility

Any idea to to make use of it ..

Suraj jain
You mind is a weapon
Its onto you how to arm it .

dot net objects in perl

il-gigi26-Apr-06 2:58

il-gigi

26-Apr-06 2:58

Hi all

i have successfully managed to use dot net objects in perl, but i can't find out how to initialize a dot net object that takes an array as a parameter.

so basically the scenario would be:

--- PERL CODE ---
my($component) = Win32::OLE->new("componentTest.componentTestClass");
if (defined $component)
{
print "Created component object\n";
$component->initialize(@array);
# or even better a referenced array: \@array
my($result) = $component->main();
print "\nRESULT = " . $result;
}
else
{
print "COMPONENT NOT FOUND\n";
}

any ideas anyone?

il-gigi

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.