Visual Basic

how to print out the content of picturebox and richtexbox using print dialog?

4-Apr-04 17:52

Supplying the EXACT error message would very much help to determine the problem.

RageInTheMachine9532

XML and VB.NET

PaleyX3-Apr-04 10:35

PaleyX

3-Apr-04 10:35

When creating XML is better to just use string concatenation or use the XML document and create it in that? How would I go about doing the second?

Thanks

Jon

Rugby League: The Greatest Game Of All.

Re: XML and VB.NET

PaleyX4-Apr-04 3:07

PaleyX

4-Apr-04 3:07

It seems to me that there are 1000s of examples of how to read XML but very few on how to write XML - I have always used string concatenation but it can look a bit messy after a while.

Rugby League: The Greatest Game Of All.

MJay3-Apr-04 3:02

MJay

3-Apr-04 3:02

anyone can provide coding to print out the content of picturebox and richtext box using print dialog??any help is greatly appreciated... VB.NET

Re: how to print out the content of picturebox and richtexbox using print dialog?

Ricci Gian Maria4-Apr-04 21:19

Ricci Gian Maria

4-Apr-04 21:19

There is an interesting article called
Getting WYSIWYG Print Results from a .NET RichTextBox

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnwinforms/html/wnf_RichTextBox.asp

It can be of great help.

Good work.
Bye.

Data load for Winsock Client

DhruboMitra2-Apr-04 19:43

DhruboMitra

2-Apr-04 19:43

Hello,
I am receiving data of 3 KB from a Linux Server in a VB client which connects to the server after every 2 minutes(using a timer).I am working in a LAN. I dump the data received in a text box after the .GetData method.The problem is that at an average of 40% of the time I am getting no/garbage data.The pattern is inconsistent i.e.it might receive correct data 5 times and then maybe fail 2 times.
Can anybody suggest a reason for this because I think I should receive data with more than 90% success in a small network.
Also,is it possible to assign more than 1 port in a server and and have the client connect to the different ports ? If yes, how ? I want to know this because I want to send/receive different data through different ports for different screens in the VB client application.

Thanks,
Dhrubo

Dhrubo

Re: Data load for Winsock Client

Dave Kreskowiak3-Apr-04 2:05

Re: Data load for Winsock Client

3-Apr-04 2:05

You might want to include some code samples from the server and client so we can see what your doing right/wrong.

RageInTheMachine9532

DhruboMitra8-Apr-04 18:09

DhruboMitra

8-Apr-04 18:09

As requested by Dave Kreskowiak, I am including the code for the client and server so that somebody can suggest a solution.

Thanks for any help in advance.

Server:

void main(void)
{
create_socket();
bind_socket();
listen_client();
while(1)
{
connect_client();
send_data(); //receive_data();
shutdown(newSockfd,0);
close(newSockfd);
} /* Outer While closed */
return 0;
} /* end main */

void create_socket()
{
sockfd = socket(PF_INET,SOCK_STREAM,0);
if( sockfd < 0 )
{
printf("\nsocket can not be created !!!!");
return;
}

printf("\nsocket created,");
printf(" my descriptor:- %d",sockfd);
}

void bind_socket()
{
int ret_stat;
memset((char*) &servAddr,'\0', sizeof(servAddr));
servAddr.sin_family = PF_INET;
servAddr.sin_addr.s_addr = htonl(INADDR_ANY);
//servAddr.sin_port = htons(nTCPPort);//
servAddr.sin_port = htons(PORT_NO);
printf("\n Server Port Number = %d",servAddr.sin_port);
ret_stat = bind(sockfd, (struct sockaddr *)&servAddr,sizeof(servAddr));

if(ret_stat < 0)
{
printf("\nBind Error Status:%d",ret_stat);
exit(0);
}
printf("\nBind Success Status:%d",ret_stat);
return;
}

void listen_client ()
{
ret_stat = listen(sockfd,5);
if(ret_stat < 0)
{
printf("\nListen Error Status:%d",ret_stat);
exit(0);
}
printf("\nListen Success Status:%d",ret_stat);
return;
}

void connect_client(void)
{
printf("\nWaiting For Client To Connect : ");
len = sizeof(struct sockaddr);
newSockfd = accept(sockfd, (struct sockaddr *)&from, &len);
if(newSockfd < 0)
{
printf("\n accept request failed ");
}
printf("\n Client Connected ");
}

void send_data(void)
{
int send_stat;
int i,k=0;
char temp[12],buff[3000];
double decr_temp1 = 0.00,decr_temp2 = 0.00,decr_temp3 = 0.00,decr_temp4=0.00
float decr_temp5 = 0.00, decr_temp6 = 0.00;
int decr_temp7 = 0, decr_temp8 = 0;
short int decr_temp9 = 0,decr_temp10 = 0;
long int slab_no = 54790000;
//char temp1;

for (k=0;k<40;k++)
{
slab_no = slab_no + 1;
sprintf(slabdata[k].slabid,"%ld,",slab_no);
//0.--------------------------------------

if (k==0) strcpy(buff,slabdata[k].slabid);
else strcat(buff,slabdata[k].slabid);

// 1.---------------------------------------
slabdata[k].slabtemp = 900.00 - decr_temp1;
sprintf(temp,"%.2lf,",slabdata[k].slabtemp);
strcat(buff,temp);
decr_temp1 = decr_temp1 + 25.00;

//2.------------------------------------------------
slabdata[k].uptemp = 800.00 - decr_temp2;
sprintf(temp,"%.2lf,",slabdata[k].uptemp);
strcat(buff,temp);
.
.
. // for another 8 sets of data for total 10
}

send_stat = send(newSockfd,buff,sizeof(buff),0);

if (send_stat<0) //newly added
{
printf("\n Sending Error status :%d",send_stat);
exit(0);
}

printf("\n The length of Data that was sent is %d ",strlen(buff));
}

Client:
I am using the timer2 and the labels for testing the output and the will remove them later.
As a test, before the data arrival event I am disabling the timer and after the data has been received I enable ii because I thought the timer's priority was causing a problem.

-------
Dim mydata As String

Private Sub Form_Load()
Label8.Caption = Time
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Time
If DateDiff("n", Format(TimeValue(Label8.Caption), "hh:mm:ss"), Format (Time, "hh:mm:ss")) >= 2 Then

Label8.Caption = Time

If Command1.Enabled = False Then Command1.Enabled = True
Command1_Click

End If
End Sub

Private Sub Command1_Click()
a = ""
If Winsock1.State <> sckClosed Then Winsock1.Close
Command1.Enabled = False
Timer1.Enabled = False

Winsock1.Connect "151.0.22.60",7500
End Sub

Private Sub Winsock1_Connect()
Timer1.Enabled = False
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim I As Integer
Static bkupbuff As String
Static counter As Integer

Label6.Caption = "Bytes Received : " & Winsock1.BytesReceived & " Bytes Total parameter : " & bytesTotal

On Error Resume Next

Winsock1.GetData a, vbString

Label4.Caption = "Length of a : " & Len(a)

If Len(a) < 2675 Then
Text1.Text = a
a1 = bkupbuff
Label9.Caption = "FAILED " & Len(Trim(Text1.Text))
a = ""
Else
Text1.Text = a
a1 = a 'for array purposes
bkupbuff = a 'for back up during error in data receive
a = ""
Label9.Caption = "SUCCESS " & Len(Trim(Text1.Text))
End If

Label5.Caption = Label5.Caption & " " & Str(counter): counter = counter + 1

Timer1.Enabled = True
Label8.Caption = Time

If Command2.Enabled = False Then Command2.Enabled = True

End Sub

Private Sub Timer2_Timer()
Label3.Caption = Time
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _
ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
MsgBox "Error in socket : " + Description, vbOKOnly
End Sub

Problem with GetWindowText() in VB

ndalal2-Apr-04 9:12

Re: Problem with GetWindowText() in VB

2-Apr-04 9:12

For the code below, I always get an empty string from "GetWindowText()" call, instead of getting the caption or title of the window.

Not sure, why am I getting that empty string?
Any help is appreciated.

Thanks.

===========================================
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, ProcessIDs(0))

If hProcess <> 0 Then
lRet = EnumProcessModules(hProcess, Modules(1), 200, cbNeeded2)
If cbNeeded2 > 500 Then
cbNeeded2 = 500
End If

If lRet <> 0 Then
For j = 1 To cbNeeded2
ModuleName = Space(MAX_PATH)
nSize = 500
x = GetWindowTextLength(hProcess)
str = Space$(x)
x = GetWindowText(hProcess, str, x)
tl_dt_GetPID = ProcessIDs(0)
lRet = CloseHandle(hProcess)
Exit Function
Next j
End If
End If

lRet = CloseHandle(hProcess)

End Function

Dave Kreskowiak2-Apr-04 10:01

2-Apr-04 10:01

See my reply in the other thread...

RageInTheMachine9532

Strong Naming

nvmoss2-Apr-04 6:09

nvmoss

2-Apr-04 6:09

I am attempting to stong name my first assembly. I found the Sn.exe utility,but can't seem to open it. When I try, it flashes on the screen and then disappears. The reference book I am using is very vague on how to use the utility. what am I doing wrong?

Please respond as soon as you can, I need to get the deployment done so I can get this application to my associates!

Thanks!

Re: Strong Naming

Dave Kreskowiak2-Apr-04 6:21

How to Kill a particular process

2-Apr-04 6:21

That's because SN is a command line utility. It doesn't have a window interface. Go to Start/Programs/Microsoft Visual Studio .NET (2002|2003)/Visual Studio .NET Tools and click on Visual Studio .NET (2002|2003) Command Prompt. Then type your SN command in there.

RageInTheMachine9532

Re: Strong Naming

nvmoss3-Apr-04 7:26

nvmoss

3-Apr-04 7:26

Thanks!

Now I have another problem. My application references both Interop.Excel and Interop.VBIDE. after I assigned a strongname key pair to the (2) assemblies I wrote, I tried to build the solution, and got a build error saying that I needed to strong name these two assemblies. How do I do this?

Thanks Again!

ndalal2-Apr-04 5:14

2-Apr-04 5:14

Hi,

From VB, how can we kill a particular process, given the following scenario:

I see 2 applications, say cmd.exe in task manager and only one of them is of my concern, which I would like to kill from VB.

How can I distinguish this cmd.exe from the other. Note that I dont know which one to kill just by looking at it and also the process ID's change everytime I restart an application which generates this cmd.exe

Any help is appreciated.
Thanks.

Dave Kreskowiak2-Apr-04 6:03

2-Apr-04 6:03

In simple terms, you can't tell them apart unless there is a property that is unique to the process your trying to kill, like MAYBE its MainWindowTitle.

Use the Process class to get the list of processes. You can then use the Close method on the instance of Process to terminate that process.

RageInTheMachine9532

ndalal2-Apr-04 7:10

2-Apr-04 7:10

OK thanks,

The process cmd.exe is generated from VC++.
So I added the title bar from VC++ using
STARTUPINFO.lpTitle = "foo";

And from VB I used GetWindowText(), but it always gives back an empty string instead of the title(foo) of that process (cmd.exe).

I have defined GetWindowText() in VB as:
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Any clue why am I getting empty string back and not the title?

Dave Kreskowiak2-Apr-04 7:29

2-Apr-04 7:29

Sorry, I though you were using VB.NET.

Wait a minute... If you have the VC source, why not just kill the process from the VC app? After all, when you launch the process you get a ProcessHandle back. You use that ProcessHandle with the TerminateProcess function and your done.

RageInTheMachine9532

ndalal2-Apr-04 7:33

2-Apr-04 7:33

Well, there are some software architectural problems and paths which needs to be followed and this killing process is a specific scenario. Thus I cannot kill from VC.
Hence I need to kill it from VB...(its a long story, but in short, cannot kill from VC).

Sorry for the confusion..

Dave Kreskowiak2-Apr-04 9:59