Re: How to check Internet connection - Visual Basic Discussion Boards

Re: Help with VB 2008.NET, Please

Johan Hakkesteegt11-Dec-09 2:37

11-Dec-09 2:37

treashunter wrote:
Public Sub drawonform(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Call Button2_Click(sender, e)

Okay, this is the main problem. The paint event (especially of the form) can happen many times per second even, and is an uncontrolled (by you) event. That means it will happen whether you want to or not.
So in your code, as is, the code in your button click event will be executed just as many times (whether you want to or not).

In other words, do not use the Paint event, but rather the Form's Load event, or if absolutely necessary, VisibleChanged, in which case you need to check whether the form is being hidden or made visible.

And a good opportunity to practice good coding techniques:
As a rule of thumb, do not call an event from within other events just to run the code inside that event. Rather create a separate sub and move the code in the event to it. So in your case:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonpic.Click
  OpenPictureDialog()
End Sub

Public Sub drawonform(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
  OpenPictureDialog()
End Sub

Private Sub OpenPictureDialog()
  Try
    If (Form1.openDiag.ShowDialog() = Windows.Forms.DialogResult.OK) Then
      user = Form1.openDiag.FileName
    End If
  Catch ex as Exception
    MsgBox(ex.ToString)
  End Try
End Sub

My advice is free, and you may get what you paid for.

Re: Help with VB 2008.NET, Please

Paul Conrad12-Dec-09 4:59

Paul Conrad

12-Dec-09 4:59

As others have mentioned, do not have this type of operation inside a procedure that handles the Paint event as Paint event does happen often and you cannot control when it is triggered or not. From what I read of your description of what you are trying to achieve, you should be putting the code to open your open dialog in a button click event procedure for the button in question.

"The clue train passed his station without stopping." - John Simmons / outlaw programmer

"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon

"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham

How to check Internet connection

Tufail Ahmad10-Dec-09 18:28

Tufail Ahmad

10-Dec-09 18:28

In vb6.0, how can i check Internet connection. that is. Is net connected or not.
Send source code please

Re: How to check Internet connection

Eddy Vluggen11-Dec-09 2:13

Eddy Vluggen

11-Dec-09 2:13

Tufail Ahmad wrote:
Send source code please

Private Declare Function InternetGetConnectedState Lib "wininet.dll" _
    (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Public Function IsOnline() As Boolean
    Dim LFlags As Long
    IsOnline = InternetGetConnectedState(LFlags, 0&)
End Function

I are Troll Suspicious | :suss:

Re: How to check Internet connection

Tufail Ahmad11-Dec-09 19:00

Tufail Ahmad

11-Dec-09 19:00

IsOnline = InternetGetConnectedState(LFlags, 0&)
In the above line, LFlags returns some values, what does it mean.

Note: I am connected to Internet through LAN

Re: How to check Internet connection

The Man from U.N.C.L.E.11-Dec-09 23:09

The Man from U.N.C.L.E.

11-Dec-09 23:09

Google is a wonderful thing. Check out InternetGetConnectedState Function on MSDN[^].
The LFlags result you are looking for is 2.

If you have knowledge, let others light their candles at it.
Margaret Fuller (1810 - 1850)
[My Articles] [My Website]

Re: How to check Internet connection

εїзεїзεїз12-Dec-09 0:32

εїзεїзεїз

12-Dec-09 0:32

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Function Check_Internet_Connection() As Boolean
If InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
Check_Internet_Connection = False
Else
Check_Internet_Connection = True
End If
End Function

Best Regards,
SOFTDEV
If you have knowledge, let others light their candles at it

Re: How to check Internet connection

Paul Conrad12-Dec-09 5:00

Paul Conrad

12-Dec-09 5:00

Tufail Ahmad wrote:
Send source code please

Sorry, it is not how this site works. People will offer help and hints as to what to do, but to just throw out code, no.

Working with numbers????

A-dogg200910-Dec-09 17:49

A-dogg2009

10-Dec-09 17:49

Hi eveyone,
I,m working on a program where I want to save numbers to a file and then be able to later have my program be able to tell me which numbers occur most often with in this file. I have managed to write to a text file and i even figured out how to read how many lines the file has. I,m stuck on retreiving the data. I,m using vsual basic 2008 by the way. Would it be better to use a database?? Thanks for any help you all can be.

Sincerely,
A-dogg

Re: Working with numbers????

Ashfield10-Dec-09 21:08

Ashfield

10-Dec-09 21:08

A-dogg2009 wrote:
Would it be better to use a database

Depends on the volume of data and how much you want to manipulate it.

A-dogg2009 wrote:
stuck on retreiving the data

Take a look at the SYSTEM.IO name space, filestreams

A-dogg2009 wrote:
which numbers occur most often with in this file

Read up on LINQ, its perfect for this

Bob
Ashfield Consultants Ltd
Proud to be a 2009 Code Project MVP

Re: Working with numbers????

A-dogg200916-Dec-09 17:34

A-dogg2009

16-Dec-09 17:34

Thanks for the info bob

Local machine problem with SQL DMO !!!

cotdot1111110-Dec-09 13:27

cotdot11111

10-Dec-09 13:27

Hi every one

I 'm using SQL DMO to connect database in my computer
But i can't connect to my database
Here my code:

Dim sever As New SQLDMO.SQLServer
sever.LoginSecure = True
sever.Connect("local")

how to connect to my local sever

I'm using SQLEXPRESS
thanks

Re: Local machine problem with SQL DMO !!!

Luc Pattyn10-Dec-09 14:14

Luc Pattyn

10-Dec-09 14:14

this[^] contains the magic line you need to connect.

Smile | :)

Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

Re: Local machine problem with SQL DMO !!!

Eddy Vluggen11-Dec-09 2:20

Eddy Vluggen

11-Dec-09 2:20

There's a walkthrough here; http://www.sqldbatips.com/showarticle.asp?ID=34.

Your server-instance is probably named "(local)\SQLEXPRESS" Smile | :)

I are Troll Suspicious | :suss:

DataGridView in VB.NET.The empty row in the end!!!

tannghia10-Dec-09 11:58

tannghia

10-Dec-09 11:58

Please help me to answer the following question! Thanks!
1.In VB.NET, when datasource of datagridview = datatable(Datatable contains data).On the datagridview display a grid of data ,the end row is empty.
What type of value of the cells on this row in VB.NET?How to check ?
2.Can I make the end row disappear?

Re: DataGridView in VB.NET.The empty row in the end!!!

Andy_L_J12-Dec-09 9:05

Andy_L_J

12-Dec-09 9:05

2. Set:

DataGridView1.AllowUSerToAddRows = False

and

DataGridView1.AllowUserToDeleteRows = False

I don't speak Idiot - please talk slowly and clearly

'This space for rent'

Driven to the arms of Heineken by the wife

freehand draw problem

O.G.I.10-Dec-09 10:19

O.G.I.

10-Dec-09 10:19

Hi,
I'm currently having a big problem with freehand drawing.
I want to do the following thing: I want to draw 2 freehand lines both with different colors and I need the final line to be on the top of the other lines created before. To store the lines I use 2 GraphicsPath objects, one GraphicsPath per color.
I tried to solve this problem by using two arrays like this:
Public MousePath0() As System.Drawing.Drawing2D.GraphicsPath
Public MousePath1() As System.Drawing.Drawing2D.GraphicsPath
My idea was to make a system which will remember the order of all lines and draw them correctly, but when I add an graphics path to the array and when I try to add line to this graphics path VB 2008 gives me an error "Object reference not set to an instance of an object."
Please help, I don't want to use exactly a GraphicsPath for the lines, it can be something different.
Thank you!

SOAP/VB6 Reading Arrays

ffowler10-Dec-09 5:37

ffowler

10-Dec-09 5:37

Hello All,

I am hoping someone could steer me in the right direction with a problem I am having.

I created a small app that sucessfully consumes a Web Service and traps the response. I am able to read individual pieces of the document but when it comes to arrays, I am having the most difficult time.

Below I have posted the XML response and what I am looking to store is the values in ref1 and ref2. But I don't know how to get at them. I see a reference to these 2 elements in the SearchServiceNames and ServiceLastModificationDates tags but I am totally lost on how to read and hook the two up.

Any help would be most appreciated. I thank you for your time and comments.

<?xml version="1.0"?>
<SOAP-ENV:Envelope SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<SOAP-ENV:Body>
<ns1:GetSearchServicesResponse SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:ns1="http://www.dwdev.com/Webservices/Freezerworks/">
<SearchServicesCount>3</SearchServicesCount>
<SearchServiceNames href="#ref-1"/>
<SearchServiceLastModificationDates href="#ref-2"/>
</ns1:GetSearchServicesResponse>
<SOAP-ENC:Array SOAP-ENC:arrayType="xsd:string[3]" id="ref-1">
<item>GetIDs</item>
<item>russtest</item>
<item>russtestservice</item>
</SOAP-ENC:Array>
<SOAP-ENC:Array SOAP-ENC:arrayType="xsd:date[3]" id="ref-2">
<item>2009-11-17</item>
<item>2009-11-16</item>
<item>2009-11-16</item>
</SOAP-ENC:Array></SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Antivirus Bloking My Application [modified]

Anubhava Dimri10-Dec-09 1:54

Anubhava Dimri

10-Dec-09 1:54

Hello To All,

In My application i have provide the facility to Use directoly when Computer is log in. So i add the application to Startup in Registry. So my application is blocked by antivirus.

But Other application which are in Startup are not Blocked By Antivirus.

so please help me for How to Secure my application to Antivirus. And Give me the reason for that why antivirus not detecting those applications which are Add in Startup.

If you can think then I Can.

modified on Thursday, December 10, 2009 11:18 PM

Re: Antivirus Bloking My Application

EliottA10-Dec-09 2:44

EliottA

10-Dec-09 2:44

Add an exception to your antivirus for your application.

See how generic of an answer that was? See how it's frustrating?

It's the same thing for me with your generic question.

Check out the CodeProject forum Guidelines[^]
The original soapbox 1.0 is back![^]

Re: Antivirus Bloking My Application

Luc Pattyn10-Dec-09 2:57

Luc Pattyn

10-Dec-09 2:57

Excellent.

Thumbs Up | :thumbsup:

Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]

I only read code that is properly indented, and rendered in a non-proportional font; hint: use PRE tags in forum messages

Approximate zero values in an array

Johnkokk9-Dec-09 23:52

Johnkokk

9-Dec-09 23:52

Ok, here is the question

I have an array with let's say, the following values :

17
18
0
0
24
23
0
20
0
0
0
16

I need to approximate(average) the ZERO values to the non zero values.For example i would expect the 0 between the 23 and the 20, to become 21.5.
Or the first 2 zeros to be 20 and 22.

Can you help ?

It should be easy but i am completely stuck in here.

Re: Approximate zero values in an array

Richard MacCutchan9-Dec-09 23:56

Richard MacCutchan

9-Dec-09 23:56

Johnkokk wrote:
It should be easy but i am completely stuck in here.

This is simple mathematics. Add up the numbers surrounding the zeros and calculate the average (by division). Replace the zeros with the average values. Try doing it with pencil and paper to see how it can be achieved.

Re: Approximate zero values in an array

David Skelly10-Dec-09 2:02

David Skelly

10-Dec-09 2:02

It's not really the average, though, if I've understood the question.

The sequence 23, 0, 20 becomes 23, 21.5, 20.

18, 0, 0, 24 becomes 18, 20, 22, 24

20, 0, 0, 0, 16 becomes 20, 19, 18, 17, 16.

Not sure what the technical term for that is. Interpolation? Even so, it is still simple maths. The only tricky bit is handling the end conditions if a 0 occurs at the first or last position in the array.

Re: Approximate zero values in an array

Richard MacCutchan10-Dec-09 2:41

Richard MacCutchan

10-Dec-09 2:41

David Skelly wrote:
It's not really the average, though, if I've understood the question.

You're right of course, I was confused (quite easy thing to do) by the questioner using the expression "approximate(average)".

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