Visual Basic

_Erik_28-Oct-10 5:12

28-Oct-10 5:12

Preserving the conditions of GPL license, you might use SharpZipLib[^].

crain198128-Oct-10 5:17

crain1981

28-Oct-10 5:17

So I should add this to MS Visual studio and use the libraries?

_Erik_28-Oct-10 5:32

28-Oct-10 5:32

Well, errr, depending on what you understand by "add this to MS Visual Studio". If you mean that you have to add a reference to this library in your project, the answer is yes, of course.

crain198128-Oct-10 6:20

crain1981

28-Oct-10 6:20

Thanks Erik... I'm new to visual studio. So I'm Confused | :confused:

a lot right now

Re: Crystal Report Formating

dan!sh 28-Oct-10 10:19

dan!sh

28-Oct-10 10:19

We have a GZipStream[^] class. You can make use of that to create zip files.

Crystal Report Formating

Nikhil Bhivgade27-Oct-10 21:44

Nikhil Bhivgade

27-Oct-10 21:44

i want to increase the space between to record front the front end by passing value as a parameter like 1,2,3

that should increase line spacing by 1,2,3 lines

how can i achieve this plz help

Richard MacCutchan27-Oct-10 23:04

Richard MacCutchan

27-Oct-10 23:04

Please do not post in multiple forums; see this message[^].

Just say 'NO' to evaluated arguments for diadic functions! Ash

TextChanged event not fireing. [SOLVED]

chrispowell1234527-Oct-10 5:57

chrispowell12345

27-Oct-10 5:57

Hi,

I'm changing the text of an application writtewn in vb.net using the user32.dll method "SetWindowText".

The text of the application changes but the textchanged event for the form doesn't fire off.

Is there anything I need to do after sending the "SetWindowText" to the recieving app to fire off the even or something within the app itself?

Thanks,

Chris

modified on Thursday, October 28, 2010 6:14 AM

Re: TextChanged event not fireing.

Dave Kreskowiak27-Oct-10 6:17

Re: TextChanged event not fireing.

27-Oct-10 6:17

Of course it doesn't fire. You completely bypassed the .NET code that would have fired the event had the text been changed through the Forms Text proprty settor when you sent the message directly to the windows message pump.

There is nothing you can do to force the target app to fire off it's TextChanged event when you used this method.

Short of extrodinary difficult effort (read: not worth the cost to develop), I don't see how you're going to pull this off.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

_Erik_27-Oct-10 6:42

Re: TextChanged event not fireing.

27-Oct-10 6:42

You should use SendMessage function to send a WM_SETTEXT message instead. SetWindowText will not cause this message if the target window is not owned by the same process you are making the call, and if WM_SETTEXT is not sent, TextChanged event will not be fired.

Anyway, I think this question should be in Windows API forum.

chrispowell1234527-Oct-10 23:41

chrispowell12345

27-Oct-10 23:41

Thanks for the hint.

I solved the problem like this:

Using the following declarations:

Public Declare Function apiFindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWnd1 As Int32, ByVal hWnd2 As Int32, ByVal lpsz1 As String, ByVal lpsz2 As String) As Int32
    
Public Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String) As Boolean
    
Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As String) As IntPtr
Private Const WM_SETTEXT As Integer = &HC

I then search for another instance of the application and send the message with the relevant details if it finds one.

Dim window As IntPtr = apiFindWindowEx(Nothing, Me.Handle, "WindowsForms10.Window.8.app.0.378734a", "PDF Viewer")
If Not window = 0 Then
    SendMessage(window, WM_SETTEXT, 0, Command())
    Me.Close()
End If

Then in the application (it's the same app but I only want one open at a time) there is this piece of code that checks the messages when they're recieved:

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
       MyBase.WndProc(m)
       If m.Msg = WM_SETTEXT Then
           If justopened = True Or Me.Text = "PDF Viewer" Or Me.Text = "File Browser" Then
           Else
               pdfrecieved(Me.Text) 'goes and does stuff
           End If
       End If
   End Sub

Thanks for the help!

Script for checking domain & Map Drive

OrdinaryGal27-Oct-10 3:18

27-Oct-10 3:18

Hi,

How to map drive by checking domain name when user log on,such as when user log on domain 1 map network drive = X
and if user log on domain 2 map netwrork drive =Y

I have write a script it as below details,tt seemed didn't work.Plese help. Thanks in advance

Option Explicit

Dim objSystemInfo
Dim objWSHShell
Dim strLogonServer
Dim objNetwork
Dim strDriveLetter, strRemotePath

Set objWSHShell = Wscript.CreateObject("Wscript.Shell")

strLogonServer = objWSHShell.ExpandEnvironmentStrings("%LOGONSERVER%")
WScript.Echo "Server Name is :" & strLogonServer
Set objSystemInfo = CreateObject("ADSystemInfo")
WScript.Echo "Site Namen is: " & objSystemInfo.SiteName
strDriveLetter = "X:"
strRemotePath = "\\domainname\home\"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
WScript.Quit

Dave Kreskowiak27-Oct-10 5:27

27-Oct-10 5:27

I don't exactly what you're looking for because your code doesn't check which domain the user logged into. But, here's an example of where the det the domain name:

Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domain = " & WshNetwork.UserDomain

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

OrdinaryGal27-Oct-10 5:41

27-Oct-10 5:41

Thank Dave

How to check domain if i have multiple domain and map network drive. Thanks in advance.

phil.o27-Oct-10 5:47

phil.o

27-Oct-10 5:47

Why don't you use a script in the 'NETLOGON' share of one of the DC's of the domain you're connecting to ?

OrdinaryGal27-Oct-10 5:55

27-Oct-10 5:55

Hi,

Because of user working on multiple domain. I can't specific drive for them. I think it should be check domain before map network drive. Plese suggest me. Thank you

Message Removed

27-Oct-10 8:17

flflshop

27-Oct-10 8:17

Message Removed

Dave Kreskowiak27-Oct-10 8:21

27-Oct-10 8:21

What did I tell you about posting this crap?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

phil.o28-Oct-10 5:59

phil.o

28-Oct-10 5:59

The NETLOGON share exists on any domain controller of any Active Directory domain.
There you can put some scripts that will be executed for users, if activated in their account management window.
Thus, the only things you have to do are :

- create a script (.bat or .cmd) in the netlogon share of one of the domain controllers that will connect a given drive letter to a given share on a particular server
For example :

net use H: \\myserver\users$\%username%
net use I: \\mysecondserver\common

- in the user's account management window, just give the filename of your script in the 'Connection script' field

The script will be executed when the user opens his session.

If you do that on both domains, no need to check for which domain is involved : the entire login process will take care of that for you.

Dave Kreskowiak27-Oct-10 6:05

27-Oct-10 6:05

Considering I already showed you how to get the domain the user is in, writing the IF statement to see if it matches whatever your requirements are for a particular drive mapping is on you.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

OrdinaryGal27-Oct-10 15:35

27-Oct-10 15:35

Hi
I have write it as below details;

Set WshNetwork = WScript.CreateObject("WScript.Network") WScript.Echo "Domain = " & WshNetwork.UserDomain
strDriveLetter = "J:"
strRemotePath = "\\Domain\home\"

It didn't map network drive. Plese suggest me. Thank you

Dave Kreskowiak27-Oct-10 17:22

27-Oct-10 17:22

I can't tell you the exact code to use.

I have no idea what you're checking for (not that your code does ANY checking of anything what-so-ever!) and no idea what your server name and share names are. If this code is EXACTLY what you are running (no substituting "Domain" for anything,) you also do not know enough about Windows networking to take an intelligent guess at what you're supposed to be doing.

You cannot map a drive to a Domain. You map a drive to a \\<ServerName>\<ShareName>.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

OrdinaryGal28-Oct-10 4:17

vb .net 2008 express edition remove a row in datagridview

28-Oct-10 4:17

Thank you Dave. I will learn more.Sorry for make you confusing.

Denis999926-Oct-10 3:01

Denis9999

26-Oct-10 3:01

Hello, i have a problem, in my application i have a datagridview with rows, i can insert rows without any problem, i have a condition when its true i will remove this row, to know wich index has the row i have made a function, and i call it and the return value is correct but the next code line doesnt execute, can anybody help me??
Thanks and sorry for my english.

Dim row_to_delete as intenger

...
for i....

if .... then..

row_to_delete=find(i)
datagridview.rows.removeat(row_to_delete)' this line seems to doesnt execute

...

----------------------------------
public function find(byval code as integer) as integer
dim index_row as integer
for x =0...
if code =datagridview.item(0,x).value then
index_row=x

return index_row

end function

Re: vb .net 2008 express edition remove a row in datagridview

_Erik_26-Oct-10 5:49