Re: How to get ipv6 address on local machine? - Visual Basic Discussion Boards

Hello guys,
Can anyone provide me with a source code to open and read a data from an excel file and then write it in a another excel file. Thanx in advance!!

You can control Excel using the Microsoft Office Toolkit, or you can read/write csv files, which Excel can read/write

Christian Graus - C++ MVP

'Why don't we jump on a fad that hasn't already been widely discredited ?' - Dilbert

http://www.codeproject.com/database/excel_odbc.asp[^]

Vasudevan Deepak Kumar
Personal Homepage
Tech Gossips

Hello
I started to edit my old vb.net - windows program. I could not cut,copy,paste,delete anything ( button, panel, label) on windows form. I can add for example a new button but can not delete it ?? If I start a new project everything works. How to get my old project editable again? I use Vb.net 2003 std.

Is the file read only ?

Christian Graus - C++ MVP

'Why don't we jump on a fad that hasn't already been widely discredited ?' - Dilbert

No. File is editable like all project files.

I try to learn simple network programming by using vb.net that I got some problem. I don't know how to get the ipv6 address on my machine.
Please explain in details because I'm just a novice in prigramming.
Thankyou
Big Grin | :-D

' This program shows how to use the IPAddress class to obtain a server
' IP addressess and related information.
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text.RegularExpressions
Imports Microsoft.VisualBasic

Namespace Mssc.Services.ConnectionManagement
Module M_TestIPAddress

Class TestIPAddress

'The IPAddresses method obtains the selected server IP address information.
'It then displays the type of address family supported by the server and
'its IP address in standard and byte format.
Private Shared Sub IPAddresses(ByVal server As String)
Try
Dim ASCII As New System.Text.ASCIIEncoding()

' Get server related information.
Dim heserver As IPHostEntry = Dns.Resolve(server)

' Loop on the AddressList
Dim curAdd As IPAddress
For Each curAdd In heserver.AddressList

' Display the type of address family supported by the server. If the
' server is IPv6-enabled this value is: InternNetworkV6. If the server
' is also IPv4-enabled there will be an additional value of InterNetwork.
Console.WriteLine(("AddressFamily: " + curAdd.AddressFamily.ToString()))

' Display the ScopeId property in case of IPV6 addresses.
If curAdd.AddressFamily.ToString() = ProtocolFamily.InterNetworkV6.ToString() Then
Console.WriteLine(("Scope Id: " + curAdd.ScopeId.ToString()))
End If

' Display the server IP address in the standard format. In
' IPv4 the format will be dotted-quad notation, in IPv6 it will be
' in in colon-hexadecimal notation.
Console.WriteLine(("Address: " + curAdd.ToString()))

' Display the server IP address in byte format.
Console.Write("AddressBytes: ")

Dim bytes As [Byte]() = curAdd.GetAddressBytes()
Dim i As Integer
For i = 0 To bytes.Length - 1
Console.Write(bytes(i))
Next i
Console.WriteLine(ControlChars.Cr + ControlChars.Lf)
Next curAdd

Catch e As Exception
Console.WriteLine(("[DoResolve] Exception: " + e.ToString()))
End Try
End Sub 'IPAddresses

' This IPAddressAdditionalInfo displays additional server address information.
Private Shared Sub IPAddressAdditionalInfo()
Try
' Display the flags that show if the server supports IPv4 or IPv6
' address schemas.
Console.WriteLine((ControlChars.Cr + ControlChars.Lf + "SupportsIPv4: " + Socket.SupportsIPv4.ToString()))
Console.WriteLine(("SupportsIPv6: " + Socket.SupportsIPv6.ToString()))

If Socket.SupportsIPv6 Then
' Display the server Any address. This IP address indicates that the server
' should listen for client activity on all network interfaces.
Console.WriteLine((ControlChars.Cr + ControlChars.Lf + "IPv6Any: " + IPAddress.IPv6Any.ToString()))

' Display the server loopback address.
Console.WriteLine(("IPv6Loopback: " + IPAddress.IPv6Loopback.ToString()))

' Used during autoconfiguration first phase.
Console.WriteLine(("IPv6None: " + IPAddress.IPv6None.ToString()))

Console.WriteLine(("IsLoopback(IPv6Loopback): " + IPAddress.IsLoopback(IPAddress.IPv6Loopback).ToString()))
End If
Console.WriteLine(("IsLoopback(Loopback): " + IPAddress.IsLoopback(IPAddress.Loopback).ToString()))
Catch e As Exception
Console.WriteLine(("[IPAddresses] Exception: " + e.ToString()))
End Try
End Sub 'IPAddressAdditionalInfo

Public Shared Sub Main(ByVal args() As String)
Dim server As String = Nothing

' Define a regular expression to parse user's input.
' This is a security check. It allows only
' alphanumeric input string between 2 to 40 character long.
'Define a regular expression to parse user's input.
'This is a security check. It allows only
'alphanumeric input string between 2 to 40 character long.
Dim rex As New Regex("^[a-zA-Z]\w{1,39}$")

If args.Length < 1 Then
' If no server name is passed as an argument to this program, use the current
' server name as default.
server = Dns.GetHostName()
Console.WriteLine(("Using current host: " + server))
Else
server = args(0)
If Not rex.Match(server).Success Then
Console.WriteLine("Input string format not allowed.")
Return
End If
End If

' Get the list of the addresses associated with the requested server.
IPAddresses(server)

' Get additonal address information.
IPAddressAdditionalInfo()
End Sub 'Main
End Class 'TestIPAddress
End Module
End Namespace

Nothing is Impossible in Life Need Is Try for It
Think Big Get Big
Don’t Forget To Rank Best Post

Thnakyou

Hi Folks,
Can any one tell me how to sort a column in datagrid?????I have done the sorting which works fine when we click the headertext in ascending and descending accordingly.
Now i need the same functionality when i click the up and down arraows placed side of the header text.....is it possible to place images beside hearder text???

Thanks
Vin1070

Hi,
i have datagridview in my vb.net(winforms) application,
& have combox in every cell of a column of Customer's name
How to Access Current Index Of Combobox which is in Datagridview??

priya

Hi Priya,

You can get current index from ComboBox1.SelectedIndex .

thnx for help
yes i know it, but my datagridview columntype as combobox so how to access curr index property of that datagridview cell of type combobox.
Please help me Sniff | :^)

priya

priya,

can u copy and paste the piece of code which u r using or e-mail me??

hi ,

i wrote following code -->

MyCommand.CommandType = CommandType.Text
MyCommand.CommandText = "SELECT CustName FROM cust_mast;"
MyCommand.Connection = conn
MyDataAdapter.SelectCommand = MyCommand
MyDataAdapter.Fill(dt)
''---------------------------------
DGTimeSheet.AutoGenerateColumns = False

CombCust = New DataGridViewComboBoxColumn
With CombCust
.DataSource = dt
.DataPropertyName = "Custname"
.ValueMember = "Custname"
.DisplayMember = "Custname"
.HeaderText = "Custname"
.DropDownWidth = 200
.Width = 90
.MaxDropDownItems = 3
.FlatStyle = FlatStyle.Flat
End With
DGTimeSheet.Columns.Insert(0, CombCust)
DGTimeSheet.Columns(0).Width = 235
''-----------------------------------------------------
now wht i wnt is->
i wnt to take one more combobox which is filled with customerID & at runtime when we select item in datagridview's Customer comboColumn , it should set current index of that other customerID
comboBox same as datagridview's customer comboBox column.
(coz i have to fill next combocolumn, depending on which customer, i have selected in that row.& as custid is primary key, i require related customerID of selected customer)

As it is possible for our normal comboboxes by writing code-->
Private Sub cmbcust_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmbcust.SelectedIndexChanged
cmbCustId.SelectedIndex = cmbcust.SelectedIndex
End Sub
d
but i didnt get the current index of a combobox that is in datagridview
Will u please tell how shuld i do it.

--Regards Priya

priya

Hello,

Is there any way i can zip files on my machine through vb.net??

Regards,
Nilesh.

.NET 2005 has classes for it, I think. 2003 and 2002 do not.

Christian Graus - C++ MVP

'Why don't we jump on a fad that hasn't already been widely discredited ?' - Dilbert

thanks for the reply..
i've .NET 2003. But that's fine.

i got one component. it's name is chilkat

http://www.chilkatsoft.com/[^]

Thanks.

SharpZip is free.
http://www.codeproject.com/csharp/VmEasyZipUnZip.asp[^]

Vasudevan Deepak Kumar
Personal Homepage
Tech Gossips

thanks you very much for the help.
That was really useful.

Hi, I just install visual studio 2005 standard edition. But I need two additional feature that integrate with visual studio. First I need to have a visual studio too for Ms. office in the project template and Second I need have crystal report to be integrated with visual studio. From here, I have the below question:

1. After I purchase vs.net for ms office tool, do i need to uninstall vs.net 2005 standard edition or just upgrade via the installation CD/DVD?
2. Vs.net 2005 standard do not have crystal report integrat with. Is it possible for me to purchase the separate crystal report product to install and make it integrated with vs.net 2005 standard? If possible, which crystal report product version that I require to purchase?

Thank in advance!!!

I am trying to convert the Wininet code from VB 6 to VB .NET.

The function FtpCallbackStatus(ByVal hInternet As Long, ByVal dwContext As Long, ByVal dwInternetStatus As Long, ByVal lpvStatusInfo As Long, ByVal dwStatusInfoLength As Long) As Long
does not work with VB .NET

I tried the "delegate" and other method and it did not seem to work.

Does anyone know the quick fix for this?

Tony N.

WebRequest is here right?

Vasudevan Deepak Kumar
Personal Homepage
Tech Gossips

I have an access database that exports an Excel spreadsheet. Currently I have to open the spreadsheet, select all, format columns/autofit and do the same for rows.

Is there VB code that can automatically do an autoformat?

Thanks!

_________________________________________________________________
Dick Cheney looks like a high school calculus teacher with persistent heartburn.

This code comes from an Excel VB macro:

Public Sub OpenExlFile(ExcelPath As String)<br />
    Workbooks.OpenText FileName:=ExcelPath, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Local:=True<br />
    Workbooks.Application.Columns.AutoFit<br />
    'Workbooks.Application.Columns.AutoFormat<br />
    'Workbooks.Application.Rows.AutoFormat<br />
End Sub

The last two lines were commented out because they badly slowed down opening the document, but they do also work.

For what it's worth,

Johan

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