Visual Basic Language Forum

Addhandler events of an Object ?

Wed, 25 Nov 2009 16:17:49 Z

Hello,

I have a number of UserControls that have the same event .

When I use an Object instead of UserControl, I can not use Addhandler.

Here is the simplest example of my problem:
In this example error is "TextChanged is not an event of Object"

Dim obj As Object = TextBox1
AddHandler obj.TextChanged, AddressOf text_changed_event

I have to use this structure, because in a FOR loop I use some different UserControls as obj.
All UserControls have the same event.

Is there a way to use this structure without error?

Maybe there is a way to define a new object that covers all my UserControls.

Thanks.

How to Programatically change SelectedTab in a TabControlEvent

Fri, 20 Nov 2009 06:32:52 Z

I have a TabControl with 4 TabPages ( 0, 1, 2 & 3 ). As the user changes from Tab to Tab, a validation procedure determines if the selections in the curent tab are complete. I'm using the 'Selecting' event to check for the validation and if not valid I'm setting e.cancel to true.

All of this works quite well. My problem is that in the validation code, checking tab(1) data, I would like to offer the user the ability to choose to change data in tab(0). The 'Selecting' event enables me to cancel the change to tab(2) from tab(1) but will not allow me to set the selectedindex to 0.

Any Ideas??

Thank you,
Tom R.

vba & vb6 programmer

SetLastWriteTime is off by 1 hour

Fri, 16 Jan 2009 23:53:47 Z

I've written a console utility to set file date/time stamps to a specified date/time:

For Each FoundFile In My.Computer.FileSystem.GetFiles(FileSpecPath, FileIO.SearchOption.SearchTopLevelOnly, WildCards)
    FileInfo = My.Computer.FileSystem.GetFileInfo(FoundFile)
    System.IO.File.SetCreationTime(FileInfo.FullName, NewDate)
    System.IO.File.SetLastWriteTime(FileInfo.FullName, NewDate)
    System.IO.File.SetLastAccessTime(FileInfo.FullName, NewDate)
    Console.Write(FileInfo.Name + " " + NewDate)
Next

When I go to a command prompt to check the results, the new date is correct, but the hour is off by 1 hour. Same when I check the times in Windows Explorer -- all three times are displayed to the same time, but exactly 1 hour earlier.

The system date/time are correct (Vista) and we are not in DST.
The files reside on a local drive (not a network share).
The computer is not on a domain.

I was about to tinker with the SetUTC functions, but thought I'd ask first.
Thanks,
-Jack

Need a Calendar!

Tue, 24 Nov 2009 10:28:37 Z

Hello Everyone!

I wanna insert a calendar on my VB form. I can drag it to the form from the toolbox, but I don't understand how I can creating to do list on different dates.
I mean I need a calendar where after clicking a certain dates, it can show me what the activities gonna be on that day.
Any ideas about using the calendar?

How can I check if a wav file is playing?

Tue, 24 Nov 2009 16:52:30 Z

Hello. I am using VS 2005 Professional and writing a guitar tuner app with visual basic. I have a 6 wav files that play in button click events using the My.Computer.Audio.Play() method. I need to animate a picture box meter while a wav file is playing. I have searched in the library, but I can't find any relevant info for checking if a sound is playing for vb. Is there a way I can check to see if the wav file is playing?

ToString format

Tue, 24 Nov 2009 22:15:39 Z

Private

Sub submitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles submitButton.Click

Dim average As Integer = 0

Dim score As Integer = 0

Dim number As Integer = 0

score = Convert.ToInt32(scoreTextBox.Text)

taken += 1

totalScore = score + taken

average = Convert.ToInt32(totalScore / taken)

average = Convert.ToInt32(averageResultLabel.Text) - SAYS MY INPUT STRING IS NOT IN CORRECT FORMAT

number = Convert.ToInt32(numberResultLabel.Text)

End Sub

End

Class ' QuizAverageForm

VB.NET Format Phone Number

Mon, 23 Nov 2009 17:06:54 Z

I'm trying to format a phone number in VB.NET 2008 in the code. A user can type in this number for example: (203) 555-1212

The format I would like the phone numbers to appear is this:
203.555.1212

I haven't been able to find the correct format.

I tried this:

Dim x As String = "(222) 333-4444"

Dim joe As String = String.Format("{0:###.###.####}", x)

This doesn't do anything to the variable. I've tried to set my variable x to '2223334444', but the format still does not work. Any ideas?

calculating compound intrest

Wed, 25 Nov 2009 13:47:22 Z

formula for compound intrest is P(1+r)n
Iwould like to know what function procedure would i use to calculae this formula.
I am using textboxes for the veriables.

MS access permission problem

Wed, 18 Nov 2009 07:01:36 Z

Hi all,

       My application using Ms Access DB. when i connect to DB  from client machine 

it show error at conn.open. the error was "you need permission to view its data".

If I login to the server, it works perfectly.



      The connection string was "provider=microsoft.jet.oledb.4.0;Jet OLEDB:Database

Password=pwd;data source=\\" & SerIP & "\NTDB\Config.mdb"

(server IP - SerIP, NTDB - shared folder in server)



     

      Is there any way to access the DB from code without server login? pls guide me

dbnull in textboxt to datagridview

Tue, 24 Nov 2009 10:21:15 Z

hi everbody.........

this code i pick from grauva khanna...
it working..but for one coulmn only..
my question is ..how to manipulate every column with dbnull.value

      'If TextBox1.Text.Trim = "" And TextBox2.Text.Trim = "" And TextBox3.Text.Trim = "" And TextBox4.Text.Trim = "" Then
        'DT.Rows.Add(DBNull.Value, DBNull.Value, DBNull.Value, DBNull.Value)

        'ElseIf Not TextBox1.Text.Trim = "" And Not TextBox2.Text.Trim = "" And Not TextBox3.Text.Trim = "" And Not TextBox4.Text.Trim = "" Then
        'DT.Rows.Add(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text)

        'ElseIf TextBox1.Text.Trim = "" And Not TextBox1.Text.Trim = "" And TextBox2.Text.Trim = "" And Not TextBox2.Text.Trim = "" Then
        'DT.Rows.Add(DBNull.Value, TextBox1.Text, DBNull.Value, TextBox4.Text)

        '' ElseIf Not TextBox3.Text.Trim = "" And TextBox3.Text.Trim = "" And Not TextBox4.Text.Trim = "" And TextBox4.Text.Trim = "" Then
        'DT.Rows.Add(TextBox1.Text, DBNull.Value, TextBox3.Text, DBNull.Value)

        ' End If

thank.............

VB.NET 2005 SOCKET PROBLEM

Wed, 25 Nov 2009 08:30:34 Z

hi every one,
i'm developping a server application using vb.net and i'm facing a problem. in fact i have a hudge data to send to the client via the socket so i use a loop to divide the data and send eatch part the problem is that when i proceed with the sending the socket send me only few peaces of the data and loose a big part of it. i tryed to flush the buffer after each sending but i didnt find how to do it so i used a system.threding.thread.sleep between each socket.send. it wors when i don't have hudge data but it blocks my server when the number of paquets increases. is there a solution that would replace the .sleep one without blocking the application??

Audio stream capture from web

Wed, 18 Nov 2009 16:59:23 Z

Hi.

I have link: http://www.trancearoundtheworld.com/player/play.php?id=294

I want capture the audio stream on my computer in mp3/wav.

I have no idea from what i should start. What should i use for start developing? I'm working in VS2008 on VB. Can i do it in VB? What additional software i need? If anyone has source code example/any docs pls post it pls.

Thanks in advance!

Need help with Management System Project, Searching a TXT file and getting data when clicking in a listbox.

Tue, 24 Nov 2009 07:52:37 Z

I will include a link to a copy of my source Code. The Problem is that I have to create a user management system. I have almost all my features working but there are one or two I can't get working. When the program loads a text file is read and the program lists the first name of everyone in the text file into a list box. I want to be able to get so that when you click a name in the list box, the persons information will be displayed in the text boxes to the left. And also when you edit those text boxes you can click the button for modify current and it will modify that persons data. The other problem I'm having is being able to search that text file for the users e-mail and return the first names of people who have that e-mail into the listbox. Please help: It will make more sense if you look at my code, so I am including a copy of it here.

Link to Source Project:
http://whatwereplaying.com/Project.rar

Thank you to everyone who helps me!

Tab Import does not work with Microsoft.Jet.OLEDB; CSV works even though FMT=TabDelimited

Wed, 25 Nov 2009 04:41:04 Z

I am trying to import a tab delimited file with ADO. If I convert my tabs to csv it works, but I would like to know why it does not work with tab.
The Function is on the buttom
here is my test data:

Test1:
- Create a Text file with Headers: Test1, Test2, Test3
and rows:
row1: 1,2,3; row2: 4,5,6; row3: 7,8,9

I create the file in Excel and export it from excel, if I read it back in as a delimited file it recognizes the tabs and displays it correctly.

here is the test file in hex:
54 65 73 74 31 09 54 65-73 74 32 09 54 65 73 74   |Test1.Test2.Test|"
33 0D 0A 31 09 32 09 33-0D 0A 34 09 35 09 36 0D   |3..1.2.3..4.5.6.|"
0A 37 09 38 09 39                                 |.7.8.9          |"

I followed link:
http://social.msdn.microsoft.com/Forums/en-US/vblanguage/thread/9ac36a61-8556-4b50-861e-11db2d36b1d1/
but it does not help me

My output in my datagrid is:
Test1_Test2_Test3 for the header
1|2|3, the | is really a square box which indicates the Tab I suppose.
4|5|6
7|8|9
I binged and googled and yahooed and now I am ready to do a snore..

I hope you guys can help me

====

Function ImportTab(ByVal StrFileName As String) As Boolean

      Dim StrSql As String = ""
      Dim strCSVConnStr = ""
      Dim myString As String = ""
      Dim strfile As String = ""

ImportTab = False
Try

strfile = StrFileName

         Dim myConnection As New System.Data.OleDb.OleDbConnection( _
             "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\AlarmData;" & _
             "Extended Properties='text;FMT=TabDelimited;HDR=YES'")

myConnection.Open()

StrSql = "Select * From [TabData.txt] ;"

Dim oleAdapter1 As New OleDb.OleDbDataAdapter(StrSql, myConnection)

         Dim dtbCSV As New DataTable
         oleAdapter1.Fill(dtbCSV)
         DataGridView1.DataSource = dtbCSV
         DataGridView1.Focus()
         ImportTab = True

      Catch ex As System.InvalidOperationException
         Debug.Write(ex.Message)
         ImportTab = False
      End Try

End Function

###################

Just found that If I use a normal txt file with comma separated content then this function will display it correctly. It is like the fmt has no function.

Simple Linq to XML question

Tue, 24 Nov 2009 23:43:10 Z

Hi

Could someone help a newbie into the LINQ

I would like to retrieve the value of the <Name> and <Value> node for each <Parameter> element from this XML

The XML is loaded from a text string.

<Parameters xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com:xml-analysis">
        <Parameter>
          <Name>Datasource</Name>
          <Value xsi:type="xsd:string">[Datasource].[Datasource].&amp;[2]</Value>
        </Parameter>
        <Parameter>
          <Name>ToPeriod</Name>
          <Value xsi:type="xsd:string">[Time].[YWD].[Year].&amp;[2009].&amp;[2009 sem 47]</Value>
        </Parameter>
        <Parameter>
          <Name>Chain</Name>
          <Value xsi:type="xsd:string">[Stores].[Chain hierarchy].[Chain].&amp;[2]</Value>
        </Parameter>
        <Parameter>
          <Name>Category</Name>
          <Value xsi:type="xsd:string">[Products].[CRF Category].[All]</Value>
        </Parameter>
        <Parameter>
          <Name>ShowTopProducts</Name>
          <Value xsi:type="xsd:string">20</Value>
        </Parameter>
        <Parameter>
          <Name>ShowTopStores</Name>
          <Value xsi:type="xsd:int">40</Value>
        </Parameter>
        <Parameter>
          <Name>DistrictManager</Name>
          <Value xsi:type="xsd:string">[Stores].[District Manager].[All]</Value>
        </Parameter>
        <Parameter>
          <Name>AreaManager</Name>
          <Value xsi:type="xsd:string">[Stores].[Area Manager].[All]</Value>
        </Parameter>
        <Parameter>
          <Name>Consultant</Name>
          <Value xsi:type="xsd:string">[Stores].[Consultant].[All]</Value>
        </Parameter>
        <Parameter>
          <Name>CommercialRegion</Name>
          <Value xsi:type="xsd:string">[Stores].[Commercial region].[All]</Value>
        </Parameter>
        <Parameter>
          <Name>PotentialGroup</Name>
          <Value xsi:type="xsd:string">[Stores].[Potential Group].[All]</Value>
        </Parameter>
        <Parameter>
          <Name>PricePeriod</Name>
          <Value xsi:type="xsd:string">[Time].[YMD].[Year].&amp;[2009].&amp;[Agosto 2009]</Value>
        </Parameter>
      </Parameters>

Should be relatively simple but I simply can't crack the nut

Thx

Erik

SQL CODE PROBLEM

Sun, 22 Nov 2009 20:49:13 Z

Dear all, I'm using SQL as a database in VB 2010, I already add a table to my form as a datagrid view but I don't know how to add buttons for filtering, deleting and adding things in my table, for example I want to have one button on my form call it search button to search in table names or Phone Numbers. how can I do that and where shall I write the code?
waiting for help.

Zebra Printing exception - Invalid Parameter: Name handle Exception

Tue, 24 Nov 2009 15:31:44 Z

I am using VB.Net code to print barcode label in Zebra TLP 2844 printer. And the printer is connected to system by USB port. When i execute the code i get an error "Invalid Parameter : Name handle" in the line outFile = New FileStream(_SafeFileHandle, FileAccess.Write) . Can you please help me to rectify this.
As this is a USB port So i shared the printer and used the UNC path. But still i get the error. Below is the complete code

Name Spaces
Imports System.IO
Imports System.Runtime.InteropServices

Here is the button click code

Dim _print as new ZebraPrint
_print.StartWrite("//ComputerName/PrinterSharedName")
dim _Text as String = "Print test"
_print.Write("A30,120,0,4,2,1,N,""" & _Text & """")
_print.EndWrite()

Class

Public Class ZebraPrint
#Region " Private constants "
Private Const GENERIC_WRITE As Integer = &H40000000
Private Const OPEN_EXISTING As Integer = 3
#End Region

#Region " Private members "
Private _SafeFileHandle As Microsoft.Win32.SafeHandles.SafeFileHandle
Private _fileWriter As StreamWriter
Private _outFile As FileStream

#End Region

#Region " private structures "
<StructLayout(LayoutKind.Sequential)> _
Public Structure SECURITY_ATTRIBUTES
Private nLength As Integer
Private lpSecurityDescriptor As Integer
Private bInheritHandle As Integer
End Structure

#End Region

#Region " com calls "
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Integer, ByVal dwShareMode As Integer, <MarshalAs(UnmanagedType.Struct)> ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Integer, ByVal dwFlagsAndAttributes As Integer, ByVal hTemplateFile As Integer) As Microsoft.Win32.SafeHandles.SafeFileHandle

#End Region
#Region " Public methods "
Public Sub StartWrite(ByVal printerPath As String)
Dim SA As SECURITY_ATTRIBUTES

_SafeFileHandle = CreateFile(printerPath, GENERIC_WRITE, 0, SA, OPEN_EXISTING, 0, 0)

Try

_outFile = New FileStream(_SafeFileHandle, FileAccess.Write)

_fileWriter = New StreamWriter(_outFile)

Catch ex As Exception

System.Windows.Forms.MessageBox.Show("Can not find printer.", "Warning", Windows.Forms.MessageBoxButtons.OK, Windows.Forms.MessageBoxIcon.Error, Windows.Forms.MessageBoxDefaultButton.Button1)

End Try

End Sub

Public Sub Write(ByVal rawLine As String)

If _fileWriter IsNot Nothing Then

_fileWriter.WriteLine(rawLine)

End If

End Sub

Public Sub EndWrite()

If _fileWriter IsNot Nothing Then

_fileWriter.Flush()

_fileWriter.Close()

_outFile.Close()

End If

_SafeFileHandle.Close()

_SafeFileHandle.Dispose()

End Sub

#End Region

End Class

VB Application Startup Failure: Type Initializer Exception

Fri, 20 Nov 2009 21:05:28 Z

The application works fine on Vista but throws this error on Windows 7:
- The type initializer threw an exception.

This is the code that causes it:

    Public UserName As String = String.Empty       
    UserName = Environment.UserName

ebassador
"Find it, fix it, move on."

Converting DLL's Created with VB.Net to Intermediate Language To Create Entry Points Within A DLL

Mon, 16 Nov 2009 16:06:11 Z

In need of some desperate help. Has anyone had any experience with a software product called Pres? The programme provides a function (userhook) that can run externally created dll's as the programme offers no COM support. The basic requirements for the dll are as follow.

1, The dll requires a public function named UserInstruction
2, The UserInstruction must have 5 parameters. The first and second of type long, the third a double array and the fourth and fifth parameters required type is a string.

This all seems pretty simple. But as .NET doesnt support exporting functions within a DLL to allow direct public access to the function through third party software it becomes tricky. After doing some research it seems as though this isn't possible in .NET. The only way I can see to do this is to convert the dll to Intermediate Language and play around with it once this is converted and then convert the IL code back to a DLL. I found this on the following site

http://www.c-sharpcorner.com/UploadFile/JTeeuwen/ExportManagedCodeasUnmanaged11262005051206AM/ExportManagedCodeasUnmanaged.aspx

After trying this when I try to use the DLL via Pres I am still getting no joy. If anyone could help it would be extremly grateful.

Thanks In advance

Anthony Krajniewski

VB 2008 - Complementary Error Function?

Tue, 24 Nov 2009 14:50:58 Z

Hello,

I'm a novice at VB and I need to calculate a complementary error function as part of a model I am programming. In Excel 2007, the function is ERFC() however I can find no such function in VB. Is there a straight forward way of adding this function (or calling up Excel to calculate it from VB)?

Thanks in advance,

Jon

CreateObject("Excel.Application") running VERY slow

Tue, 24 Nov 2009 09:19:52 Z

In my vb.net applications, I do a lot of reading/writing to excel files.

This is one of the simpler bits of code I use:

Dim objApp As Object, objBook As Object, objSheet As Object
objApp = CreateObject("Excel.Application")
objBook = objApp.Workbooks.Open("C:\maid2clean\M2CPrinters.xls")
objSheet = objBook.Worksheets.Item(1)
objApp.Visible = False
objApp.UserControl = False
NormalPrinter = Trim(objSheet.Range("a1").value)
LabelPrinter = Trim(objSheet.Range("a2").value)
PDFPrinter = Trim(objSheet.Range("a3").value)
objBook.close()
objApp.quit()

It's never been fast but in the last few weeks it seems to take forever.
The "createobject" line is taking 4 seconds to run.

Is there a better way to do this, and is there any way I can find out why it's slowed down?

Circular reference needed? -- hopefully not

Wed, 21 Mar 2007 02:44:04 Z

A solution with multiple projects seems to want circular references...which I dont' want to add. This can't be an uncommon problem to solve, but after reading, researching, and experimenting, I haven't yet found an answer. How can I solve this problem?

Project Foo contains most of the code for an application, including several classes.

Project GUI is a library of Windows forms for the solution.

Foo contains classes that the applications uses. Foo uses some of GUI's forms for data input, and some to show results. The Foo project thus seems to need a reference to GUI.

GUI does a lot of user data input, and thus needs to call methods in Foo defined and instantiated classes. Thus, GUI seemingly needs a reference to Foo.

Pointers to good sources of information on multi-project solutions would be tremendously appreciated.

Steve

Reading dynamic disk status (WMI)

Mon, 23 Nov 2009 15:08:47 Z

Hi, i want to ask you if anyone knows a way to read Dynamic disk status (like rebuilding) true WMI.
Thank you

how to INDEX a foxpro table linked in MS access using VB.NET

Thu, 10 Sep 2009 05:56:57 Z

I have a foxpro table <b> INVENT.DBF</b> linked in MS ACCESS. When i tried to do a search in the table from vb.net application, it is taking a long time. So I want to index the foxpro table and then use it for search.
Here is the sample code i wrote in vb.net <i>

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\database.mdb;Persist Security Info=False")
cn.open()
cmd = New OleDbCommand("Create INDEX itmno_idx ON INVENT(ITEM_NO) ", cn)
cmd.ExecuteNonQuery()</i>

But I am getting error "Cannot execute data definition statements on linked data sources"
What needs to be done to index a linked foxpro table using VB.NET

Problem in Date.ParseExact method:

Tue, 17 Nov 2009 06:15:43 Z

Hi i am developing an application in Vb.Net VS 2005 which accepts an XML and convert its node values in desired data type and assigne them to their corresponding variables. Here i am encountering an exception in converting a string value to datetime datatype:

I have a form on which a button is there. On its click event following code get executed:
Its code is as under:

    Private
 Sub
 Button1_Click(ByVal
 sender As
 System.Object, ByVal
 e As
 System.EventArgs) Handles
 Button1.Click







        Dim
 str As
 String


        str = "<OrderXMLDS><Order><TimeOutAt>2/28/2009 4:14:18 AM</TimeOutAt></Order></OrderXMLDS>"


       

  

        GetOrderXML(str)

where "str" is my desired xml. Here i have shown just one node with a value (i.e. TimeOutAt) otherwise XML consists of several other nodes as well. I want to convert it into DateTime datatype for which i have written GetOrderXML function. Its body is as under:

Private Sub GetOrderXML(ByVal sXML As String)

        'Extracts the required structure and data from the XML 

        'and saves an xml file in correct path for this order.



        Dim oXmlDoc As New XmlDocument

        Dim oNode As XmlNode

        Dim oNodeList As XmlNodeList

        Dim dsXML As New DataSet

        Dim TimeOutAt As DateTime



        Try

            oXmlDoc.LoadXml(sXML)

            oNode = oXmlDoc.DocumentElement



            oNodeList = oNode.SelectNodes("/OrderXMLDS/Order/TimeOutAt")

            

            TimeOutAt = Date.ParseExact(oNodeList.Item(0).InnerText.Trim, "M/d/yyyy h:mm:ss tt", New Globalization.CultureInfo("en-us"))

            

        Catch ex As Exception

            MsgBox(ex.Message())

           

        End Try

    End Sub

Here i know very well that the format of 1st and 2nd parameter MUST match exactly in order to parse the date succesfully. Hence i have passed the value in XML in exact "M/d/yyyy h:mm:ss tt" format. I have tested this code and it is running successfully on both Windows XP and Vista without any problem irrespective of the current culture and DTF of the machine on which it is executing.

But after one year of its usage, one day (bad luck day i suppose) i encountered exception "String was not recognized as a valid DateTime."
After struggling much with the date time settings on my machine (Windows XP) i discovered that this code is running in all the conditions of local culture and DTF settings except ONE: That is when the current culture is "En-US" and date time SEPARATOR is "-" or "." instead of "/". To my surprize it is running without giving any exception in all other cultures and date time formats and their separators.
Now i got two questions to ask:

1) Why on earth this is happening that the code is not running when current culture of the machine, on which this code executes, is "English-UnitedStates" and date separator is other than "/"? It is running in all other culture and DTF formats and date separators (i.e. string value is getting converted to date time data type).

2) Is there any other method using which i can convert the string value coming in the XML to date time datatype and assign to variable TimeOutAt?

Here it will be worth mentioning that it is a desktop application and can't potentially know the current culture and date time settings of the target machine (and also i dont need to). As i know that the string value which is to be converted to date time in in the format ""M/d/yyyy h:mm:ss tt"
Please try this code and suggest me the possible solutions for the situation.

Here are complete exception details as copied to clipboard in case they are helpful:

System.FormatException was caught
Message="String was not recognized as a valid DateTime."
Source="mscorlib"
StackTrace:
       at System.DateTimeParse.ParseExact(String s, String format, DateTimeFormatInfo dtfi, DateTimeStyles style)
       at System.DateTime.ParseExact(String s, String format, IFormatProvider provider)
       at Proj.Form1.GetOrderXML(String sXML) in ~Proj\Form1.vb:line 71

LINQ join query

Mon, 23 Nov 2009 15:49:07 Z

I have a VB2008 Windows Form with a SDF database. The database contains two tables. The following query returns the records in DiskInfo that have a matching DiskNumber in the DataInfo table. How do I get it to return records in DiskInfo that DO NOT having a matching DIskNumber in the DataInfo table?

Dim DiskQuery = From DQ in DiskInfo join DI in DataInfo on DQ.DiskNumber equals DI.DiskNumber Order By DQ.DiskNumber select DQ

ImageList Help for newbie

Sun, 22 Nov 2009 05:40:38 Z

I have an imagelist with a number of pics that reference a state in the file name (ie: NY0001.jpg, NY0002.jpg, PA0001.jpg...). Is there a way to use the filename rather than the index number to select a picture to display?

The only solution I can come up with is creating a separate array and then cross referencing this with the imagelist.

ie:
Array1 (dimmed as a string)
0 NY
1 NY
2 PA ...

ImageList1 (containing 51 images)
0 NY0001.jpg
1 NY0002.jpg
2 PA0001.jpg ...

Then compare:
For N = 0 to 50
If Array1(N) = "NY" Then
Picturebox1.Image = ImageList1.Images(N)
End If
Next

This is only the general idea, I can work out a timer sequence to delay the display of individual images. Since I want to be able to add pictures, the maintenence of a separate array to reference the picture names will get complicated. Is there a better way to do this using only the imagelist and referencing the file names in that directly?

Thanks in advance for any help.

visual Basics Set Hotkey?

Mon, 23 Nov 2009 23:08:38 Z

It there a way where you dont type anything in the textbox, and you press F2 and then the textbox says F2 or if you press 1 on your numberpad, the textbox will say NUMPAD1, or something like that and if you press Ctrl on your keyboard the TextBox will say Ctrl

Im not "NEW" to VB, i pretty much know everythin cept this. I know MySQL with VB and all that.

Hope you help answer the question!

-Mogen

anyone..??

I need a help with a code!

Sun, 22 Nov 2009 12:15:49 Z

Hi,

There I made a encoder and while I am making the decoder I got a problem whith a code
Here is a picture for the error
http://img502.imageshack.us/img502/4100/errorw.png
What I am tring to do is to decode the codes after dividing in by the the value of the textbox
If the Picture is not clear here is the code:

private sub decoding()

  Dim newText() As String = Split(De_Input_text.Text, ",")

        De_Output_text.Text = ""

        For I As Integer = 0 To newText.Length - 2

            (newText(I)De_code_text.text))

            De_Output_text.Text &= Chr(CInt(Val(newText(I))))

        Next

 end sub

I am using VisualBasic 2005 Express Edition
Thanks a lot

Addhandler with a Delegate

Mon, 23 Nov 2009 16:43:53 Z

I came across a snippet of C# code which is very useful. I am trying to convert it to VB.NET, but can't seem to.

timer.Tick += delegate { panel.Children.Add(source); timer.Stop(); };

Is it possible to translate this to something similar in VB?

txt duplicates x-times in label

Mon, 23 Nov 2009 15:07:34 Z

Hi all,

I want to write "ab" x-times in label. x is defined in the txt box, it can be any integer.

So when I enter: X=10 result must be "abababababababababab" , how to do this?

thx

Help with Winwedge

Mon, 23 Nov 2009 08:03:28 Z

Please has anyone worked with winwedge? I need to use it for a project i have to deliver on thursday.

Thanks.

How to I get and set value of Local Group Policy Editor using vb scripts

Thu, 19 Nov 2009 14:17:50 Z

I want to be able to get and set values of Local Policy Editor using vb scripts (or for that matter any other command line thing). The problem is that for my requirement I cannot rely on the machine in question having anything like powershell. I want to be able to run a script/command and get/set the values of things inside Local Group Policy Editor.

eg. I want to be able to set things like running gpedit.msc and set the value for "\\Computer Configuration\Administrative Templates\Network\Offline Files\Default Cache Size", and I want to do this without manual intervention.

vb script was my obvious choice thinking that this must be possible using it, however I dont know where to start at. However if you have pointers regarding this, or any other way through which I can achieve this usecase please educate me.

Thanks,
Mayuresh

Help Please... How to insert audio?

Sun, 22 Nov 2009 16:18:32 Z

Help Please... How to insert audio?

How Can I Change ToolTip to RightToLeft

Sat, 21 Nov 2009 17:40:57 Z

Plase How :
1- How Can I Change ToolTip to RightToLeft ?
2- How Can I Save Sitting in The Same Folder Of My Applocation ?
I think that :
User Sitting Reset to it's default When the user copy or move the application from folder to other
App. Sitting ReadOnly i can't save it when the user change it
so what is the solution ?
I'm Using VS2005 - VB

How to use VB to update multiple tables

Fri, 20 Nov 2009 03:11:50 Z

I have a database with numerous tables all containing the same field. the field needs to have the same value in all of the tables, but currently doesn't.

Is there a way to use Visual basic code that goes to each table and updates the field in all of the tables without having to manually go to each table and update the field?

thanks

pls help.. how to save text from textbox to microsoft word??

Thu, 19 Nov 2009 15:28:44 Z

pls help.. how to save text from val(textbox) and picturebox into microsoft word??

to: Mr. John Anthony Oliver

Thu, 12 Nov 2009 10:38:56 Z

hi JOhn,

do u know how to draw a right triangle and spherical triangle using vb.net 2008?????

where you're going to consider the angles and sides of the traingles.......

thanx...and hope for your answer... :)

displaying errortext on the current cell in DataGridView control

Tue, 09 Oct 2007 20:04:43 Z

I'm trying to use the errortext field on a cell to display a validation error. It works fine if I leave the cell, but I can't figure out how to display it while staying in the cell. I have seen examples where the code updates the row's errortext, but I really want to mark the cell in error. Is this possible?

My code is:

Code Block

Private Sub dg_CellValidating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles dg.CellValidating

Dim val As String = e.FormattedValue.ToString

Dim dgv as DataGridView = Ctype(sender, DataGridView)

Dim cell as DataGridViewCell = dgv.rows(e.RowIndex).Cells(e.ColumnIndex)

If val = "X" Then

cell.ErrorText = "Just a test"

dgv.invalidateCell(cell) 'an attempt to repaint the cell

e.Cancel = True

End If

End Sub

Any help would be appreciated.

Kurt

Help for newbie with Data Access

Thu, 09 Oct 2008 00:44:56 Z

I am trying to connect to a SQL DB and loop through some tables. My tables are linked on the EMPLOYID field between UPR00100 and UPR00102. I want to write data as follows:

Level1,EMPLOYID,EmpName (from UPR00100)
Level4,EMPLOYID,Address1,Address2,etc.. (from UPR00102)

Here is my data access code... I don't know how to code the loop. I know how to do it in SQL using a cursor but not VB 2005

Option Explicit On

Option Strict On

Imports System.Data

Imports system.Data.SqlClient

Module Module1

Public Class DataSet1

Public Shared Sub Main()

Dim connectionString As String = _

GetConnectionString()

ConnectToData(connectionString)

End Sub

Private Shared Sub ConnectToData( _

ByVal connectionString As String)

' Create a SqlConnection to the Northwind database.

Using connection As SqlConnection = New SqlConnection( _

connectionString)

' Create a SqlDataAdapter for the Suppliers table.

Dim EmployeesAdapter As SqlDataAdapter = _

New SqlDataAdapter()

' A table mapping names the DataTable.

EmployeesAdapter.TableMappings.Add("Table", "UPR00100")

' Open the connection.

connection.Open()

Console.WriteLine("The SqlConnection is open.")

' Create a SqlCommand to retrieve Suppliers data.

Dim EmployeesCommand As SqlCommand = New SqlCommand( _

"SELECT * FROM dbo.UPR00100;", _

connection)

EmployeesCommand.CommandType = CommandType.Text

' Set the SqlDataAdapter's SelectCommand.

EmployeesAdapter.SelectCommand = EmployeesCommand

' Fill the DataSet.

Dim dataSet As DataSet = New DataSet("Employees")

EmployeesAdapter.Fill(dataSet)

' Create a second SqlDataAdapter and SqlCommand to get

' the Products table, a child table of Suppliers.

Dim EmpAddressAdapter As SqlDataAdapter = _

New SqlDataAdapter()

EmpAddressAdapter.TableMappings.Add("Table", "UPR00102")

Dim EmpAddressCommand As SqlCommand = New SqlCommand( _

"SELECT * FROM dbo.UPR00102;", _

connection)

EmpAddressAdapter.SelectCommand = EmpAddressCommand

' Fill the DataSet.

EmpAddressAdapter.Fill(dataSet)

' Close the connection.

connection.Close()

Console.WriteLine("The SqlConnection is closed.")

' Create a DataRelation to link the two tables

' based on the SupplierID.

Dim parentColumn As DataColumn = _

dataSet.Tables("UPR00100").Columns("EMPLOYID")

Dim childColumn As DataColumn = _

dataSet.Tables("UPR00102").Columns("EMPLOYID")

Dim relation As DataRelation = New _

System.Data.DataRelation("EmployeeAddresses", _

parentColumn, childColumn)

dataSet.Relations.Add(relation)

Console.WriteLine( _

"The {0 DataRelation has been created.", _

relation.RelationName)

End Using

End Sub

Private Shared Function GetConnectionString() As String

' To avoid storing the connection string in your code,

' you can retrieve it from a configuration file.

Return "Data Source=Portal;Initial Catalog=CAPT;" _

& "Integrated Security=SSPI;"

End Function

End Class

End Module

What am I missing?