Assume an application uses the Dim SalesArray(1 to 10) As Integer instruction to declare an array named SalesArray. The array contains 10 sales amounts. When the user clicks the DisplayAverage button on the form, he or she should calculate and display the average sales in currency format. The code for the DisplayAverage button doesn't work. Fix it.
[code]...
Assume an application uses the Dim SalesArray(1 to 10) As Integer instruction to declare anarray named SalesArray. The array contains 10 sales amounts. When the user clicks the DisplayAverage button on the form, he or she should calculate and display the average sales in currency format. The code for the DisplayAverage button doesn't work. Fix it.
Sub DisplayAverage_Click( )
Dim X As Integer, Total As Integer, Average As Single
If X = 0 to 10
[code].....
I wrote a program which is editing data from database. I used few tutorials (I`m beginer) and everything is working fine(I can make changes in datagrid). but when I`m trying to save changes made in dataset(e.g. save added record) I can not to that (there are no changes in my access database, but inly in datagrid)what is interesting when I delete record - changes are saved and record is deleted from db. where is my mistake? what is wrong? maybe some tips what can I improve in this small program?
[Code]...
i am making a media player tha plays movies & songs etc etc but when i play a movie the rewind button doesn't work [Code]
View 2 RepliesBasically we ran into where, for whatever reason, we had to put some 3rd party dll in the GAC for it to work correctly. (The assemblies loaded, but had weird behavior and trouble finding types in the loaded assemblies. The app itself is a add in to another 3rd party program, so it must be something about how its being loaded.) So I tried to write some quick code to handle this without having to manually do this on each machine it was needed on. This is basically what the code boils down to:
Dim X As New System.EnterpriseServices.Internal.Publish
X.GacInstall(name)
Where name is the filename of the dll. This runs without error. It even add the assembly to the GAC. However, the application still experiences the same issue until you manually add the assembly in .Net Configuration window.
I used site to convert from C# to VB but converted code doesn't work. Can some one to convert that code to VB 2008.
private void TreeViewItem_Selected(object sender, RoutedEventArgs e)
{
ExpandToItem(sender as TreeViewItem);
}
void ExpandToItem(TreeViewItem i)
[Code]...
Can anyone tell me what is wrong with this code? It looks OK to me but the GetImage function returns the same image irrespective of the filename passed to it (the one corresponding with Id=2 which is the second one found) [code]
View 3 RepliesI have this code that gives me the user logged on name of a remote computer, but if i run the program in certaing computers, it returns with the error "Not Available Due Restrictions" which is set if the scope cant connect... why it connects fine in some computers and other not..is there something i have to add to the code for it to run fine in any computer
[Code]...
i have a simple code that send an e-mail, when i try it running in debug mode it works fine, after compile, i run the exe but the same code doesn't work any more..
View 2 Repliesi'm trying to make a calendar and now i'm trying to know whether if it's a leap year and how many days in the current month etc. but my codes doesn't seems to be working and i don't know where is the problem,
[code]...
I have a page with multiple RadPageViews, some with RadGrids in them. They all need command item template in order for the user to edit and refresh the grid. On my first page view, the item template works perfectly, poping-up the edit form for the user to edit the data of the selected row. On my second page view, the command item template buttons don't seem to want to work (not even the refresh). If it were just the edit button then i would suppose there'd be a problem with my edit form, but not its that no buttons seems to work (not even refresh). The grid does display the information correctly too.
Here is the code of the pageview who's radgrid doesn't seem to work:
CODE:
I've been going through it many times and i don't understand why it doesn't work. I've also compared it to the working pageview and there doesn't seem to be any noticeable difference between them both.
I have an application that has a timer. Every hour, the application will see what time it is. If it is after 5 P.M., then the application will shut the computer off. (For power saving purposes)I have a messagebox pop up warning the user. I want the user to be able to hit "Cancel" on a dialog box if he/she is still working on the computer and reset the timer to ask again in about an hour. If the user isn't there to select a button on the messagebox, I want the computer to turn itself off. But I can't get the code to skip the dialog box after so many seconds. [Code]
View 12 RepliesI am trying to change the background color of a tooltip
I am using tooltip.backgroundcolor = color.colr
No errors but thecolor doesn't change
See
Public Class Form1
Dim sql As String
Dim conn As New OleDb.OleDbConnection
Dim da As New OleDb.OleDbDataAdapter
[CODE]...
The problem, The INSERT statement works fine in the form load but not in the button click event?
I have a form in visual basic 2010 in design view. And when i debug the form. the button i have put on the form does nothing. i want the button that i added, to do what the add new item does on the toolbar at the top of the form the code i have now is
Public
Class
Form1
Private
[code]....
I have an application that requires data be entered, and after entering, a button is clicked to process that data. Clicking the button works just as it should--the data is processed properly. In constructing a test module, I provide a set of data values, followed by:
btnWhatever.PerformClick()
Nothing happens. I have used this syntax for years, and it has always worked flawlessly. I have triple checked everything else and isolated the problem to the failure of the PerformClick(). The PerformClick() is in a test subroutine that does nothing but fill textboxes and labels with default data, then calls the PerformClick() on the button to begin processing. Again, the button works fine, the data is entered as it should be, but the PerformClick() does not fire the click event.
Possible Duplicate: Datagridview doesnt work! I have written code to show records in a datagridview but it shows nothing. I have tried to debug & when it step into GetData function following codes
Catch ex As Exception
returnData = Nothing
If connection.State = ConnectionState.Open Then
connection.Close()
End If
become gray & it shows error sign. When I take my mouse pointer on it it shows message. It says "Cannot open database SUIMT requested by the login. The login failed. Login failed for user 'MY-PCJames'".
Imports System.Data.SqlClient
Public Class Form34
Private Const ConnectionString As String = "Server=.SQLEXPRESS;" & _
"Database=SUIMT;Trusted_Connection=True"
[code]....
So I have 2 data files, single dimension, that I'm trying to populate two rtb. If I comment one streamreader out the other will print. This also works in the vise versa situation. Does anybody see where I'm going wrong with this? They won't run together.
Dim Alpha As New System.IO.StreamReader("alpha.dat")
Dim Beta As New System.IO.StreamReader("beta.dat")
Dim strLine As String
[code].....
dim str as nullable(of string) is this syntax incorrect?
View 1 Repliesi'm working on a MDI application and need to view a ".PDF" files in a MDI child form, but when using the AxAcroPDF control it doesent work, note that it works fine when viewing the form separately from the MDI application.
View 14 Repliesthis is my code:
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
For i = 0 To 1000
[code]....
Has anyone succeeded in creating a class library solution/project in VB.net VS2010 4.0 Net Framework for COM to run on WindowsXP Excel 2003. I created a dll which changed specific data in an excel worksheet. The dll worked just fine on the development computer but wont work on any other. I downloaded .NET 4 framework onto the target PCs and used RegAsm.exe to register both the .dll and .tlb files in the registry. That worked OK and the dll is visible as a reference in excel and can be ticked. The error message I get is RunTime Error -2147024894(80070002): Automation Error The System cannot find the file specified.
I also tried creating a Setup and Deploy project in the original development solution but this created just a vbproj setup file which the target PC cannot read (no VS installed), I hoped the project would create an EXE file I could use. Does anyone know any links that describe how to do this type of stuff as most links I have tried are either for Windows Forms projects are are way above my knowledge. Maybe someone out there has already succeeded with this sort of activity?
I have Visual Studio 2010 Express Edition. I'm using it to evaluate functionality before purchasing the real thing, but I'm having trouble. I want to build a DLL that can be used on PCs other than my development PC, that I can call from VBScript.
I follow the hundreds of examples out on the intranet and things still don't work.I have built a simple HelloWorld DLL with a function that returns "Hello World".I've been through all the stuff about making the assembly COM visible, and the threads about Register for COM Interop checkbox missing. One person suggested editing the .vbproj file and adding a tag to turn on Regiser for COM Interop (which was not needed because it was already there).
Anyway, if I build my project and run my VBScript:
Set testdll = CreateObject("HelloWorld.Class1")
wscript.echo testdll.HelloWorld()
Everything works great. But....if I copy the DLL to another PC and register it with RegAsm, the VBScript fails with a "File not found" error on the CreateObject line of the VBScript.
In fact, if I unregister the DLL on my development PC and then register it with RegAsm, the VBScript now fails on my development PC. RegAsm said everything was okay and if I look in the registery using RegEdit, things look good, but it still doesn't work. The only way to get it to work again is to rebuild the DLL (which in turn, registers the DLL).
I'd like to be able to build a DLL which I can be registered and used on other PCs (without requiring those PCs to have Visual Studio 2010 EE and without requiring them to have the source and build the DLL).
Dim
a As Date? = Nothing
Dim b As Date? = If(a Is Nothing, Nothing, GetValue(a))
I thought b would be Nothing, but it is not...is it a bug?
I am getting a datarow from my dataset and some columns can be NULL.So I am trying to check for this using the IsDBNull function, but it just won't work. I have tried almost every possible combination. Can someone please explain to me how to use this properly?ser is a datarow and GUID is a column with data type: unique indentifier (so a Sytem.Guid)
user.GUID.Equals(DBNull.Value) Then .GUID = System.Guid.NewGuid
I tried using above, IsDBNull(GUID), guid = dbnull.value, guid is dbnull.value etc etc I am just getting this error: The specified Cast is not valid.
[code].....
why this code doesn't work?
[Code]...
i made a picture box and the fowling event when my program runs:
[Code]...
So basically I made this code below to make my application (when the mouse leaves), go smoothly in an 70% opacity, with a fade.
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Me.Opacity = Me.Opacity - 0.05
[code].....
The form is an About Us form so has nothing on it only a text box and a OK button.
[Code]...
Why won't the button close the form? I'm puzzled, I tried another button just in case with the same result. UPDATE: I set a break point on Me.Close() and it isn't reaching it when I click the button, I created a new button and the same thing happened.
I've problems to detect if there are new rows in a DataTable Email_Total that is yet not imported into ContactDetail.
Dim srcUnique = From row In src.Email_Total
Select row.ticket_id, row.interaction, row.modified_time
Dim destUnique = From row In dest.ContactDetail
[Code].....