|
I used to have an event listener (Back in my AOL PROGZ days...  that allowed you find and address an object via VB to manipulate it or make a simple listener.
I have a program that I use at work that is written in poor VB. There is a button in this program that changes captions, and I would like to create a program that makes a sound when the button's caption changes. This is why I need to find the external event listener that I once had...
If anyone can help (or pose an alternate solution) I would really appreciate it. Thanks!
- Gabe
-- modified at 1:59 Friday 2nd June, 2006
|
|
|
|
|
Hi guys,
Here's what i want to do w/ the module.
I want to declare my connection properties in the module so i can just call
it w/in my forms whenever i have to use it.
here's whats inside my module
Imports System.Data.OleDb
Module mod_con
Public Sub establish_con()
Dim con_db_ssr As OleDbConnection
con_db_ssr = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\i1984\Automation\db_ssr.mdb;")
End Sub
End Module
am i doin it ryt? then i want to call it... 
tnx.
-::maximus::-
-- modified at 23:15 Thursday 1st June, 2006
|
|
|
|
|
Hi
SO what is the question - or, what is the error? You seem to be doing it right if all you want is to expose the Connection open code as a function. If you want to do something else, please post the error/question/intention.
Shreekar
http://shreekarishere.blogspot.com
|
|
|
|
|
Hi, I saw this project:
http://www.thecodeproject.com/csharp/OazSwitchNetConfig.asp?df=100&forumid=43385&select=1513418&msg=1513418[^]
and tried to make it on VB. NET, Im really new with this, and I cant contionue because I cant convert the system.string[] into a normal string, I have everything equal, and when I make this:
For Each mgr As ManagementObject In management.GetInstances()
If mgr.Item("IPEnabled") Then
txtDireccionIP = mgr.Item("IPAddress").ToString()
Exit For
End If
txtDireccionIP variable just show system.string[], why? because is an array?, I tried split it, get elements with a for each but nothing, what Im missing?
Thanks everyone...
Mauricio Rodriguez
newbie
|
|
|
|
|
I have a progam created and all ready to install. I used the VB.NET setup project for my deployment in Visual Studio 2005. My setup project uses prerequisits of the .NET Framework 2.0, MDAC, and a Windows Installer. Running the setup works fine, except on a computer where the user logged in does not have admin rights. When this occurs the setup fails and displays a very cryptic error. Does anyone know how I can somehow check if the user installing my program has admin rights, so that I can display a nice professional message notifying them that they need admin rights instead?
|
|
|
|
|
Kschuler wrote: When this occurs the setup fails and displays a very cryptic error
What do you mean by cryptic error. As far as I know, windows display a message box "Access denie...". I think this error is manage by windows because your application is running in windows.
|
|
|
|
|
Function IsMember(sUser,sGroup)<br />
' sUser must be a complete LDAP string:<br />
' cn=DonJ,ou=West,dc=Company,dc=com<br />
<br />
On Error Resume Next<br />
Const PROPERTY_NOT_FOUND = &h8000500d<br />
<br />
Set oUser = GetObject(sUser)<br />
If Not IsObject(oUser) Then<br />
IsMember = False<br />
Exit Function<br />
End If<br />
<br />
arrMemberOf = oUser.GetEx("memberOf")<br />
If Err.number = PROPERTY_NOT_FOUND Then<br />
IsMember = False<br />
Exit Function<br />
Else<br />
For Each Group in arrMemberOf<br />
If Group = sGroup Then<br />
IsMember = True<br />
Exit Function<br />
End If<br />
Next<br />
End If<br />
<br />
IsMember = False<br />
End Function
|
|
|
|
|
Thanks for the code, but where would I be able to put this so it would run before an install? Keeping in mind that the user will probably not have the .Net 2.0 framework installed yet, which Visual Studio 2005 requires (So I can't just put it in a DLL/exe and run it before the install)
And when I say that the error message is crypic...the first message that is displayed says something along the lines of "The installation failed, program requirements were not met." and then the user has to hit the "details" button to see more information about the error, and somewhere in there is does say something about not having authority. The issue is that I program for a demographic of users who are not computer savy, and they will have a lot of trouble if we can't find a way to make this issue more clear.
|
|
|
|
|
Kschuler wrote: Thanks for the code, but where would I be able to put this so it would run before an install? Keeping in mind that the user will probably not have the .Net 2.0 framework installed yet, which Visual Studio 2005 requires (So I can't just put it in a DLL/exe and run it before the install)
I never build any program in vs.net 2005. I just used to work in vb.net 2003. Based on your information, I would like to do as the following instruction:
1. Download and install DotNet Bootstraper[^].
2. Build your application based on this article[^].
3. Check the content of the debug folder after build an install from step 2.
4. Create the script file to check for the group membership of the user.
This is the syntax of the function
IsMember(sUser,sGroup)
Use the syntax as this below guideline:
If IsMember("cn=[UserName],ou=[OUName],dc=[CompanyName]","[GroupName]") Then<br />
' The user is a member - do something here (start to execute the setup file)<br />
Else<br />
' The user is not a member - do something here (prompt user to exit an installation process).<br />
End If
Use this instruction plus the the code that i gave you in the previous post and try to test an application.
5. Create an autorun INF file to point to the script of checking group membership.
6. Burn all relate file to CDROM.
How its work
------------
1. Insert your CDROM to the target machine.
2. The CDROM is autorun and point to run the script file to check the group membership.
3. If the user is a member of an appropriate group to install an application, then the script should point to run the setup file of your application.
4. If the user is not a member of an appropriate group to install an application, then the script would terminate the user from installan application.
Try to do this step and hope this would help you to solve the problem.
|
|
|
|
|
I'm creating a report in Microsoft Reporting tool which uses VB.NET (which I don't know very well) I'm trying to select the Top 1 payment type but I can't get the syntax to work.
I have =Top 1(Fields!paymenttype.Value) and it's not working, what would the correct expression be in VB.NET to pull the Top record?
Thank you for any help!
|
|
|
|
|
What kind of an object are you getting the data from? And what version of Visual Studio do you use?
If you are using a DataTable you could use
dtMyTable.Row(0)("PaymentType")
To access the "PaymentType" column in the very first record.
dtMyTable.Row(1)("PaymentType")
To access the second record, and so on.)
If you mean the greatest record, you would have to sort the data first, by which ever column you wish to sort by. You'd have to do the sorting in SQL or by using a DataView control.
Does this help?
|
|
|
|
|
I'm using Visual Studio 2003 and the data is coming from a SQL 2000 table that I am connected to and am pulling data from via a Query Select statement.
|
|
|
|
|
Can you give us your entire SQL statement. What you have there is invalid.
|
|
|
|
|
I don't know exactly where you are trying to use the top statement, but it's certainly in the wrong place. The top statement should be placed directly after the select statement:
select top 1 ... from ... where ... order by ...
---
b { font-weight: normal; }
|
|
|
|
|
Sorry for the delay, I was at work. What I realized I need is
=Max(Fields!paymentcode)
Thank you to everyone who responded, I'll try to be clearer next time.
|
|
|
|
|
I know you got the solution - but wanted to point out something - if the ONLY reason you are fetching the data is to get the top payment mode, then you should do it in the Select query and not after ALL the rows are fetched.
Shreekar
http://shreekarishere.blogspot.com
|
|
|
|
|
Hi,
I'm trying to write an addin for Visual Studio 2005 (using VB.NET) . I have all the functionality of the addin working fine as a bunch of macros. I want the addin to add some context menu items to each of the project items in my solution. But I have no idea how to do it! Can anyone tell me how it's done or point me in the right direction?
Thanks,
dlarkin77
|
|
|
|
|
Hi,
I have all the menu items working fine now but I still have a few other things to get sorted out.
I am adding some menu items to the context menu of the Project Folder. I want them all to appear after the Build, Rebuild and Clean menu items. How can I add a seperator before my first menu item and after my last menu item?
I have added a few menu items to the context menu of the code window. How can I fix it so that these menu items are only displayed when the active document is either a .cs or .vb file?
How can I get rid of the icons that are added automatically to my menu items?
Thanks very much,
dlarkin77
|
|
|
|
|
Hello, I am currentally having problems with the current line of code:
.Relations.Add("FK_Salaries_Employees", _
.Tables("Employees").Columns("EmployeeID"), _
.Tables("Salaries").Columns("EmployeeID"), True)
This program uses SQL server to draw its data from, but the following error occurs:
An unhandled exception of type 'System.ArgumentException' occurred in system.data.dll
Additional information: These columns don't currently have unique values.
Any futhur help on solving this error, or perhaps shed some more light on what this means?
Thanks,
Kashar
|
|
|
|
|
If you don't have unique values, then you can't create foreign keys. The purpose of a foreign key is to make sure that the 2 rows in each table can be lined up. To do this, one of the tables needs to have unique entries for the column name you listed.
|
|
|
|
|
The values are unique, Table Employees:
EmployeeID FirstName SurName DateOfBirth SecurityPhoto DateOfHire LastReview
1 Robin Johnson 6/19/1963 10:47:00 AM <binary> 5/3/2000 10:47:00 AM 3/9/2002 10:47:00 AM
2 Denise Samson 11/6/1972 10:47:00 AM <binary> 10/19/2002 10:47:00 AM 5/10/2001 10:47:00 AM
3 Jack Jones 2/22/1945 10:47:00 AM <binary> 4/16/1999 10:47:00 AM 3/15/2002 10:47:00 AM
4 John Doe 9/18/1986 10:47:00 AM <binary> 3/6/1998 10:47:00 AM 3/9/2002 10:47:00 AM
5 Linda Glucina 4/9/1944 10:47:00 AM <binary> 2/9/2000 10:47:00 AM 3/11/2002 10:47:00 AM
6 Laura Wright 2/7/1978 <binary> 2/23/1999 4/13/2002 11:23:00 PM
7 Stephanie Glucina 5/16/1963 <binary> 5/21/2001 4/12/2002 11:23:00 PM
8 Linda Anderson 12/10/1981 <binary> 7/9/2000 4/13/2002 11:23:00 PM
9 Graham Brown 6/7/1945 <binary> 8/11/1999 5/16/2001 11:23:00 PM
10 Suzanne Smith 11/2/1960 <binary> 1/6/1998 3/14/2002 11:23:00 PM
11 David Allan 9/22/1973 <binary> 11/21/1999 3/13/2002 11:23:00 PM
Table Salaries:
EmployeeID SalaryAppliedFrom SalaryLevel
2 1/25/2002 119896
3 1/17/2002 119792
4 1/1/2002 119584
5 11/30/2001 119168
6 9/27/2001 118336
7 5/22/2001 116672
8 9/8/2000 113344
9 4/15/1999 106688
10 6/25/1996 93376
11 11/16/1990 66752
|
|
|
|
|
Say:I have vb application which uses a .Net dll.If i had to repaint or refresh the calling VB application from the .Net dll's code,how could i do that?
I tried using (Application.DoEvents) method but it doesnt effectively work, the vb application screen becomes white when focus is moved to other open windows and brought back...
Do not wait to strike till the iron is hot; but make it hot by striking.
-- modified at 12:12 Thursday 1st June, 2006
|
|
|
|
|
Seeing a heading like that in the lounge I was thinking that someone was asking a sugestion to repaint their house. 
Please Move your post to the VB/VB.Net forum.
Tarakeshwar
MCP, CCIE Q(R&S)
Before you criticize someone, you should walk a mile in their shoes. That way, when you criticize them, you're a mile away and you have their shoes.
!sgub evah t'nseod margorP sihT ?sgub naem ayaddahW
|
|
|
|
|
Solution: Dont' use VB 
Never send a human to do a machine's job Agent Smith
|
|
|
|
|
That's only half a solution.
The other half would be what to use instead. 
---
b { font-weight: normal; }
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
