Create excel sheet without installing MS Office VB.NET - Visual Basic Discussion Boards

haggenx13-Jun-07 11:51

13-Jun-07 11:51

Hi!

I have a cuestion, i working in a application who must open a port to tcp comunication, i haven't any problem except if the windows xp firewall are activate, he jump and show a alert, is posible shutdown the firewall by code to what no lock my port?, thanks very much for your help.

Manuel say: Greetings from Mexico, Cuando salga el sol, no estare aqui...
---------------------------------------

Web: http://www.otakuzone-fanzine.com
Forum: http://www.otakuzone-fanzine.com/foro

Re: Windows xp firewall

Dave Kreskowiak13-Jun-07 17:47

Dave Kreskowiak

13-Jun-07 17:47

Can you shut it down? No. It wouldn't be much of a firewall if any piece of software could just shutdown the firewall whenever it wanted, now would it? You can add your application and the ports it listens to the firewall using the Firewall API. The documentation is found here[^]. There is no support built into the .NET Framework, so you'll have to P/Invoke the API calls.

The Windows XP Firewall doesn't block outgoing connections, only incomming.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Windows xp firewall

haggenx14-Jun-07 3:30

haggenx

14-Jun-07 3:30

I want development a application who must open a port, this port is listening connections to show messages from administrator (remote pc), i as administrator send a message (similar to net send command) to each user such as a chat system to notify any thing.
But, i must open a port in user pc and send message from my computer (administrator), ok, i guest the home page send to me, thanks.

ComboBox Question

Psycho-^*Coder*-Extreme13-Jun-07 11:13

Psycho-^*Coder*-Extreme

13-Jun-07 11:13

Now I know in ASP.Net with a DropDownList you can bind to 2 values, one that is displayed and one that is the actual value, is there a way to do this with a ComboBox in a Windows Application in Vb.Net?

"Well yes, it is an Integer, but it's a metrosexual Integer. For all we know, under all that hair gel it could be a Boolean."
Tom Welch

Re: ComboBox Question [Resolved]

Psycho-^*Coder*-Extreme13-Jun-07 11:53

Psycho-^*Coder*-Extreme

13-Jun-07 11:53

Resolved this question

"Well yes, it is an Integer, but it's a metrosexual Integer. For all we know, under all that hair gel it could be a Boolean."
Tom Welch

how to poll a win2003 terminal server for who is currently logged in

crash89313-Jun-07 10:06

crash893

13-Jun-07 10:06

Hi all

I am trying to from my laptop run a program that would tell me who is currently logged into a windows 2003 Ts farm

It would be similar to the program Tsadmin.exe

does anyone have any idea if there is a way to do this via an API or in the .net framework?

Thanks

crash

Put video input of a VIVO video card in a window

ricox7813-Jun-07 9:53

ricox78

13-Jun-07 9:53

Hi,
I have a question, how can I display the video in input to my asus VIVO card with VB.NET building a Dialog Box application?

Create excel sheet without installing MS Office VB.NET

Dpriya13-Jun-07 9:47

Dpriya

13-Jun-07 9:47

Hi,

I'm developing a webservice which reads data from a database and exports to a excel sheet. This applciation works if i have MS Office installed in my system . Since i'm unable to install MS Office in teh server is there any alternate way to program this.

Thanks in advance
Priya

Re: Create excel sheet without installing MS Office VB.NET

haggenx13-Jun-07 11:45

haggenx

13-Jun-07 11:45

Hi
XML files could be a option to export files to xls format, of course, these files are not excel format, but if you only want export your tables i believe about they are util to you.
Example: you have this columns in excel

Column1 Column2
Data1 Line1
Data2 Line2
Data3 Line3

In xml you can generate file (text plain file) some this and open in excel and work

<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet" xmlns Blush | :O

="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:html="http://www.w3.org/TR/REC-html40">

<Styles>
<Style ss:ID="Default" ss:Name="Normal">
<Alignment ss:Vertical="Bottom"/>
<Borders/>
<Font/>
<Interior/>
<NumberFormat/>
< Protection/>
</Style>
<Style ss:ID="s21">
<Font x:Family="Swiss" ss:Bold="1"/>
</Style>
</Styles>

<Worksheet ss:Name="Sheet1">
<Table ss:ExpandedColumnCount="2" ss:ExpandedRowCount="4" x:FullColumns="1" x:FullRows="1" ss:DefaultColumnWidth="63.36" ss:DefaultRowHeight="12.959999999999999">
<Row>
<Cell ss:StyleID="s21"> <Data ss:Type="String"> Column1</Data> </Cell>
<Cell ss:StyleID="s21"> <Data ss:Type="String"> Column2</Data> </Cell>
</Row>
<Row>
<Cell> <Data ss:Type="String"> Data1</Data> </Cell>
<Cell> <Data ss:Type="String"> Line1</Data> </Cell>
</Row>
<Row>
<Cell> <Data ss:Type="String"> Data2</Data> </Cell>
<Cell> <Data ss:Type="String"> Line2</Data> </Cell>
</Row>
<Row>
<Cell> <Data ss:Type="String"> Data3</Data> </Cell>
<Cell> <Data ss:Type="String"> Line3</Data> </Cell>
</Row>
</Table>
</Worksheet>

</Workbook>

AxMSWinsockLib

LegionFX13-Jun-07 9:24

LegionFX

13-Jun-07 9:24

where can i get this dll? someone knows?
its because i cant compile nexIRC 3.0 alpha 6 found in Planet Source Code.
cheers Wink | ;)

Creating a patch using InstallShield 2008

steve_rm13-Jun-07 8:36

steve_rm

13-Jun-07 8:36

Hello,

I would like to create a patch for my program. I have a simple window app for testing. Using VB 2005. I have created the application and then added the MSI basic project.

I then went to the project assistant and added the default settings. The project built, installed, and ran ok.

Now I have made some changes to my windows application. And I want to create a patch, not sure now to do this.

I have tried using the quick patch project and the design patch configuration. I am able to create the patch and install it, but it doesn't update the windows application to show the new changes.

Once I have my patch working, should I be able to give the patch.exe to the customer, and they should be able to install it without having to uninstall? The patch should be very small as it is just a few simple changes.

Many thanks for any help you can give me,

Steve

Re: Creating a patch using InstallShield 2008

Dave Kreskowiak13-Jun-07 15:50

Dave Kreskowiak

13-Jun-07 15:50

Your best source of information on using InstallShield is going to MacroVision[^].

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Storing a selected ListBox item into a String variable [modified]

reegan4113-Jun-07 7:41

reegan41

13-Jun-07 7:41

I want to be able to click on an item in a ListBox, then using the AfterUpdate() Sub-routine, be able to store that value into a String variable. My loop is as follows:

***START***
Dim iterator As Long
Dim descriptionString As String

For iterator = 0 to Descriptions_lst.ListCount - 1
If Descriptions_lst.Selected(iterator) Then
descriptionName = Descriptions_lst.Column(0, iterator)
End if
Next iterator
***END***

I'm not exactly sure what the 'Column' does, but apparently this is supposed to get the string value from the selected ListBox item. However, it is not working. I just get empty values for my descriptionName variable. Any ideas?

-- modified at 10:04 Thursday 14th June, 2007

Re: Storing a selected ListBox item into a String variable

Guffa13-Jun-07 11:47

Guffa

13-Jun-07 11:47

I only find the ListCount and Selected properties in the Office classes. Is this VBA?

---
single minded; short sighted; long gone;

Re: Storing a selected ListBox item into a String variable

reegan4114-Jun-07 4:03

reegan41

14-Jun-07 4:03

Ya, its VBA using Access. I need to somehow verify that 'if' statement properly, then get the selected item into a String variable.

Changing text on button in MessageBox

ctlqt1213-Jun-07 6:55

ctlqt12

13-Jun-07 6:55

Hi all,

How could i change text on button in MessageBox?
Ex : If i write :
MessageBox.Show("How to change text","Question",MessageBoxButtons.OKCancel)

-> MessageBox will be shown with "OK" and "Cancel" button. But i want to change text "OK" -> "That's right" and "Cancel" -> "That's not right".

How could i do that?

Re: Changing text on button in MessageBox

Dave Kreskowiak13-Jun-07 7:14

Dave Kreskowiak

13-Jun-07 7:14

You can't. The things you see in a MessageBox are not cusomtizable. You'll have to create your own form class that provides this functionality. It's not that hard. It's just a normal form with a couple of buttons and a label. Maybe even a picturebox if you want.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Re: Changing text on button in MessageBox

koolprasad200313-Jun-07 19:39

koolprasad2003

13-Jun-07 19:39

hellllo ctlqt,
Dave is correct "The things you see in a MessageBox are not cusomtizable"

U can use

form.showDialog() method to show ModelDialog,

just create a form looklike message box and call it as modelDialog box

regards,
koolprasad2003 Smile | :)

Be a good listener...Because Opprtunity knoughts softly...N-Joy

unknown problem. please help.

manni_n13-Jun-07 5:51

manni_n

13-Jun-07 5:51

i have a label and textbox.
right now i have 75 labels and corresponding textboxes.
i have done their connectivities with database.
after deploying it suppose i want 100 textboxes.
or rather i want to leave this on user that how much labels and textboxes he want.
for that a window wil be there and user will enter the name for label and its value..
but how label and textbox will be generated...?
and how will the database connectivity will be established.
i dont know how this can be done.
can anybody give me any idea , hw do i proceed...???
thanks.

Re: unknown problem. please help.

vbnetnoowb13-Jun-07 6:03

vbnetnoowb

13-Jun-07 6:03

To make the labels and textboxes you can use a for loop that dynamically creates them based on user input. For the db connectivity, what exactly are you looking for?

Re: unknown problem. please help.

manni_n13-Jun-07 20:11

manni_n

13-Jun-07 20:11

okkk, i think it will do.
but wat abt the conectivity with database..??
like how the connectivities with backend will be established automatically with the textboxes created dinamically.
can u tell me any article or any code for such logic...?

Help with string comparison

Psycho-^*Coder*-Extreme13-Jun-07 5:25

Psycho-^*Coder*-Extreme

13-Jun-07 5:25

Hello CPians,

I am wanting to do a string comparison but the check is against multiple possibilities, eg: The string can be "SPT", "SAP", or "PRF" and I'm hoping to do this without something like

If MyString.Equals("SAP") Or MyString.Equals("SPT") Or MyString.Equals("PRF") Then
'process here
End If

Is this possible? I've tried some Google searches and haven't found anything as of yet (maybe I'm using the wrong keywords). Any ideas?

"Let's face it, the average computer user has the brain of a Spider Monkey."
Bill Gates

Re: Help with string comparison

nlarson1113-Jun-07 5:29

nlarson11

13-Jun-07 5:29

Select Case MyString
Case "SAP", "SPT", "PRF"
'process here
End Select

Re: Help with string comparison [Resolved]

Psycho-^*Coder*-Extreme13-Jun-07 6:34

Psycho-^*Coder*-Extreme

13-Jun-07 6:34

Well I found my solution

Dim ProgramTypes() As String = {"SAP", "SPT", "PRF"}
Dim ProgramTypeList As New ArrayList(ProgramTypes)

If Not ProgramTypeList.Contains(sProgType) Then
   'Do my stuff here
End If

"Well yes, it is an Integer, but it's a metrosexual Integer. For all we know, under all that hair gel it could be a Boolean."
Tom Welch

Retrieving and restoring extended desktop settings with EnumDisplaySettingsEx [modified]

vbnetnoowb13-Jun-07 4:49

vbnetnoowb

13-Jun-07 4:49

Hi all.

I've been trying in vein for days to figure this out. I use extended desktop to extend my display to the left, not the right, and when I hibernate and come back, the desktop is extended to the right. So I'm writing an app that will retrieve the extended desktop settings on hibernate and set them again on resume.

I've seen a few examples of using EnumDisplaySettingsEx in C and C#, but nothing in vb.net that helps. I just need to figure out how to determine "This monitor is primary, that one is secondary and is positioned on the left." And then "Set this monitor to primary, set that one to be on the left."

I already have the rest of the app written (detecting hibernate, etc.), but I'm super new to the Windows API and all these structs and translations from C to vb.net are way out of my league.

I'm desperate D'Oh! | :doh:

. Help!

----
P.S. I've pieced together the following, and it gets devicename and resolution successfully, but I'm still stuck on the aforementioned stuff:

Imports System.Runtime.InteropServices
Public Class Form1
Inherits System.Windows.Forms.Form

Const ENUM_CURRENT_SETTINGS As Integer = -1
Const CDS_UPDATEREGISTRY As Integer = &H1
Const CDS_TEST As Long = &H2

Const CCDEVICENAME As Integer = 32
Const CCFORMNAME As Integer = 32

Const DISP_CHANGE_SUCCESSFUL As Integer = 0
Const DISP_CHANGE_RESTART As Integer = 1
Const DISP_CHANGE_FAILED As Integer = -1

Private Declare Function EnumDisplaySettingsEx Lib "user32" Alias "EnumDisplaySettingsExA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE, ByVal dwFlags As Integer) As Integer
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef DEVMODE As DEVMODE, ByVal flags As Long) As Integer

<structlayout(layoutkind.sequential)> Public Structure DEVMODE
<marshalasattribute(unmanagedtype.byvaltstr, sizeconst:="CCDEVICENAME)"> _
Public dmDeviceName As String
Public dmSpecVersion As Short
Public dmDriverVersion As Short
Public dmSize As Short
Public dmDriverExtra As Short
Public dmFields As Integer
Public dmOrientation As Short
Public dmPaperSize As Short
Public dmPaperLength As Short
Public dmPaperWidth As Short
Public dmScale As Short
Public dmCopies As Short
Public dmDefaultSource As Short
Public dmPrintQuality As Short
Public dmColor As Short
Public dmDuplex As Short
Public dmYResolution As Short
Public dmTTOption As Short
Public dmCollate As Short
<marshalasattribute(unmanagedtype.byvaltstr, sizeconst:="CCFORMNAME)"> _
Public dmFormName As String
Public dmUnusedPadding As Short
Public dmBitsPerPel As Short
Public dmPelsWidth As Integer
Public dmPelsHeight As Integer
Public dmDisplayFlags As Integer
Public dmDisplayFrequency As Integer

End Structure

Public Sub getScreenInfo(ByVal theWidth As Integer, ByVal theHeight As Integer)
Dim ascreen As Screen

Dim DevM As DEVMODE

DevM.dmDeviceName = New [String](New Char(32) {})
DevM.dmFormName = New [String](New Char(32) {})
DevM.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE)))

If 0 <> EnumDisplaySettingsEx(Nothing, ENUM_CURRENT_SETTINGS, DevM, 0) Then
Dim lResult As Integer

DevM.dmPelsWidth = theWidth
DevM.dmPelsHeight = theHeight
DevM.dmPelsWidth = 1280
DevM.dmPelsHeight = 1024

lResult = ChangeDisplaySettings(DevM, CDS_TEST)

If lResult = DISP_CHANGE_FAILED Then
MsgBox("Display Change Failed.", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "Screen Resolution Change Failed")
Else

lResult = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

Select Case lResult
Case DISP_CHANGE_RESTART
MsgBox("You must restart your computer to apply these changes.", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "Screen Resolution Has Changed")
Case DISP_CHANGE_SUCCESSFUL
MsgBox("Display Change Successful.", MsgBoxStyle.OKOnly + MsgBoxStyle.Information, "Screen Resolution Successful")
Case Else
MsgBox("Display Change Failed.", MsgBoxStyle.OKOnly + MsgBoxStyle.Critical, "Screen Resolution Change Failed")
End Select
End If

End If
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
getScreenInfo(1024, 768)
End Sub

-- modified at 13:28 Wednesday 13th June, 2007

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