Visual Basic

how to save a form as an image in runtime

25-Dec-09 3:43

A, B and C are all Byte

200+100 > Byte max resulting in an overflow.

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

Re: Console problem!!!

cotdot1111125-Dec-09 13:08

cotdot11111

25-Dec-09 13:08

Yeah thank you very much
Smile | :)

zhiyuan1624-Dec-09 21:50

zhiyuan16

24-Dec-09 21:50

dear all

how could i save a form as image type in runtime..in vb6? thanks a lot

DaveAuld24-Dec-09 22:23

24-Dec-09 22:23

There is an article here on Codeproject about this;

VB6 Save Form Image To File[^]

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

zhiyuan1624-Dec-09 22:39

zhiyuan16

24-Dec-09 22:39

thanks a lot, actually i read it and tested already, when save form as image, the picturebox lost..and some information lost too...any other idea, thanks a lot

DaveAuld24-Dec-09 22:47

24-Dec-09 22:47

Sorry don't have VB6 to hand so can't have a look or try anything.

Your best bet for more ideas is google!

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

Convert into the Indian Rs formate

zhiyuan1624-Dec-09 22:57

zhiyuan16

24-Dec-09 22:57

thanks your reply, i searched in google, but couldn't get any suitable answer, so come here to see you.

lrsalunkhe24-Dec-09 20:08

lrsalunkhe

24-Dec-09 20:08

Respected,

How to convert Integer value into Indian Rupees Formate in VB.Net
E.g 1234567 convert into 12,34,567

Thanks

Re: Convert into the Indian Rs formate

DaveAuld24-Dec-09 22:18

Re: Convert into the Indian Rs formate [modified]

24-Dec-09 22:18

There are numerous Format functions available look up the docs, particularlay the formatcurrency method

Cheers,
dave

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

Dimitri Witkowski26-Dec-09 2:50

Dimitri Witkowski

26-Dec-09 2:50

Here's the answer in C#:

CultureInfo ci = CultureInfo.CreateSpecificCulture("hi-IN");
string converted = 1234567m.ToString("N", ci);

Or in VB.NET:

Dim ci As CultureInfo = CultureInfo.CreateSpecificCulture("hi-IN")
Dim converted As String = 1234567D.ToString("N", ci)

See my article about Windows 7 Timer here on CodeProject

Using Combo box

sun.spider24-Dec-09 19:21

sun.spider

24-Dec-09 19:21

hi..
I am a beginner in Vb.net. need help. i m doing 1 project in which i have to retrieve field from table 1 to Combo Box & save it to table 2.
can anybody give me example.

Re: Using Combo box

DaveAuld24-Dec-09 22:21

how to decode =?windows-874?B?t7TKzbogdGVzdCB=?= to Thai Langauge ? [modified]

24-Dec-09 22:21

Are your tables you refer to in a dataset?

If so then you can bind the datasource/member properties of the combo box to the table 1.

Then just use an insert/update to table 2 based on the selecteditem in the combobox.

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

narongaun24-Dec-09 18:19

narongaun

24-Dec-09 18:19

Dim TCP As Net.Sockets.TcpClient
Dim POP3Stream As System.IO.Stream
Dim inStream As System.IO.StreamReader

TCP = New Net.Sockets.TcpClient
TCP.Connect(strServer, 110)

POP3Stream = TCP.GetStream
inStream = New System.IO.StreamReader(POP3Stream, System.Text.Encoding.GetEncoding("utf-8"))

strTemp = inStream.ReadLine

While (strTemp <> ".")
strEmailMess = strEmailMess & strTemp & vbCrLf
strTemp = inStream.ReadLine
End While

For example: if strTemp is =?windows-874?B?t7TKzbogdGVzdCB=?=

i have to cut ?windows-874?B? and ?= so, it will remains t7TKzbogdGVzdCB=

and i will use code below to encode it to Thai letter

Dim encoding As New System.Text.UTF8Encoding
Dim Buffer As Byte() = Convert.FromBase64String(t7TKzbogdGVzdCB=)

DecodeBase64 = encoding.GetString(Buffer)

it's read ?????????

How to make it read in Thai letter ?

Thanks

modified on Friday, December 25, 2009 4:43 AM

Re: how to decode =?windows-874?B?t7TKzbogdGVzdCB=?= to Thai Langauge ?

DaveAuld24-Dec-09 22:25

Re: how to decode =?windows-874?B?t7TKzbogdGVzdCB=?= to Thai Langauge ?

24-Dec-09 22:25

Your question is not very good.

You cut the items from where? what are you expecting it to decode to? what does the original data refer to?

You lost me with your question...

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

narongaun24-Dec-09 22:48

narongaun

24-Dec-09 22:48

sorry , I have revised my post already and hope u understand what i mean.

Thanks

For next loop and external file handling?

offroaderdan24-Dec-09 3:09

Re: For next loop and external file handling?

24-Dec-09 3:09

Hello experts.

I am stuck on something.

I have an external file whihc i am read/writting to it, that bit i can do however, what i really need to be able to do is split the document up.

At the moment i have one big text box with lots of data in it, what i need to do is split that data up and put the data into seperate textboxes,

i thought i could do this with a FOR and NEXT loop however that doesn't seem to work

Here's my code

Dim i(1 To 10) As Integer 
'reading a file

' Get a free file number
nFileNum = FreeFile

' Open a text file for input. inputbox returns the path to read the file
Open App.Path & "\stock.txt" For Input As nFileNum
lLineCount = 1

For i = 1 To 10 ' this loop doesn't seem to work!

' Read the contents of the file
Do While Not EOF(nFileNum)     'this works fine 
   Line Input #nFileNum, sNextline
   'do something with it
   'add line numbers to it, in this case!
   sNextline = sNextline & vbCrLf
   sText(i) = sText(i) & sNextline & vbNewLine    'take out sNumbers if dont work

'Next sNumber
next i 
Loop


txtRead.Text = sText(1)
txtRead1.Text = sText(2)

if anybody can help me that would be very helpful

Thanks

Dan

Eddy Vluggen24-Dec-09 4:09

Eddy Vluggen

24-Dec-09 4:09

You're reading the file 10 times, right to the end of the text. Wouldn't it make more sense to move the loop to the end of the method, and to process it after you read all the text?

I'd be guessing that you'd only need to read the file once.

I are Troll Suspicious | :suss:

Re: For next loop and external file handling?

DaveAuld24-Dec-09 22:27

Re: For next loop and external file handling? [modified]

24-Dec-09 22:27

You have your For Next and your Do Loop structures overlapped, doesn't look right to me.

Dave
Who am I?:
Web|Facebook|Twitter|LinkedIn|Bebo

Md. Marufuzzaman25-Dec-09 8:34

Md. Marufuzzaman

25-Dec-09 8:34

Before you perform to split a string you must have to provide the deliminator...It's a basic part of split a string..Your code is not similar to your need I guess.
Well I would like you suggest you to use Microsoft.Office.Interop.Word 11.0 to Handle not only a rtf file but also
any format of word documents.

Thanks
Md. Marufuzzaman

Don't forget to click [Vote] / [Good Answer] on the post(s) that helped you.

I will not say I have failed 1000 times; I will say that I have discovered 1000 ways that can cause failure – Thomas Edison.

modified on Friday, December 25, 2009 2:50 PM

Database problem NEARLY sorted out

offroaderdan24-Dec-09 1:12

24-Dec-09 1:12

Hi guys,
I asked a little while ago about a database problem i had.

Umm i seem to have figured out a lot of it however have a tiny problem.

Adodc1.Recordset.Find "First_Name = 'dan'", , adSearchForward

this code works and finds the record with first name dan

when i want to use a text box labeled txtSearch

Adodc1.Recordset.Find "First_Name" = txtSearch.Text, , adSearchForward

all hell breaks loose and it don't like it. It says there is an error 3001???

I am soooo close now, if i can get this done that would be very cool!!

And a merry xmas

Dan

offroaderdan24-Dec-09 1:13

24-Dec-09 1:13

i am using vb6

Md. Marufuzzaman24-Dec-09 1:44

Md. Marufuzzaman

24-Dec-09 1:44

offroaderdan wrote:
when i want to use a text box labeled txtSearch

Adodc1.Recordset.Find "First_Name" = txtSearch.Text, , adSearchForward

Try with this:

Adodc1.Recordset.Find "First_Name = '" & txtSearch.Text & "'", , adSearchForward

Thanks
Md. Marufuzzaman

offroaderdan24-Dec-09 1:53

24-Dec-09 1:53

woooooooooo thankyou ever so much

offroaderdan24-Dec-09 2:03