Midi and Visual Studio

Visual Basic Language

- Previous
  - 1
    - Using RichTextBox to store HTML files We are Final Year students of engineering working on a project and have encountered a difficulty regarding the creation of an HTML file using RichTextBox.Let me try to explain the problem in detail. We are using RichTextBox1.Savefile() utility to save the contents of the RichTextBox with an HTML file extension.However,when we try to open this saved file from its location on the hard disk,each line in the file is preceded by "\par",which gets added automatically. If we open this same file now in the RichTextBox, the content gets displayed without the "\par". Is there any way to save the contents of the RichTextBox without the above happening We would be really grateful if anyone could please help us out in this respect. Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 2
    - Exception when creating a new WinForm in an Async Delegate Callback method Hi You are using an STA thread model and trying to create a form on a thread that is not the one used by the application's message dispatcher. As your code appears to be within a form already, the simplest way to marshall the call correctly is to let the form do it .. something along these lines .... _cfddata = crdelegate.endinvoke(result) showreport Now add your new procedure sub showreport if mybase.invokerequired then mybase.invoke(new methodinvoker(addressof me.showreport)) else : new reportviewer(_cfddata).showdialog(me) end if end sub Hopefully this should solve your problem ... let me know if it does not, or if any of the above is unclear. Richard Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 3
    - How do you add a pause with the Timer control? How about a delay using the system time ticks? Hiya, Try this and watch the time when it gets to zero seconds. This shows the Date and Time from NOW in the Form title bar. It stops for 10 seconds and then restarts showing the Now time again. It uses the Timer2 tick event to start and stop the timer Timer1 . Regards, S_DS ____________________________________________ This project only uses two timers. Public Class Form1 ' Set the interval to 1000 milliseconds = 1 second ' within each Timer control. ' ENABLE the timers. Private Sub Form1_Load( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase .Load Timer1.Interval = 1000 Timer1.Enabled = True Timer2.Interval = 1000 Timer2.Enabled = True End Sub Private Sub Timer1_Tick( ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Timer1.Tick ' Show the date and time in the FORM title bar!! Me .Text = Now.ToLongDateString & " " & Now.ToLongTimeString End Sub Private Sub Timer2_Tick( ByVal sender As Object , _ ByVal e As System.EventArgs) Handles Timer2.Tick ' Here is a pause for 10 seconds. If Now.Second = 0 Then Timer1.Stop() If Now.Second = 10 Then Timer1.Start() End Sub End Class Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 4
    - VB2005 Sending ascii characters larger than ascii 126 using SerialPort.Write command I was the same problem and found a good solution, Encoding = System.Text.Encoding.Default Nerio Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 5
    - Help with ODBC Command Thanks. I'll give that a shot. I wanted to do it with a stored procedure, but if this works, great. There has to be an easy way to just pass the variables into the INSERT INTO command directly from VB. I'm just missing it. I have the command created but I don't know how to call it. I dragged the ODBC COmmand onto the form, created it that way. Thanks again. Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 6
    - ComboBox Hi, I see where you are going, I had thought a select case structure would do it, but I wondered whether there was anyway to expose the Items Collection of a ComboBox and map those items to a parent item in another object collection. Also, would your PopulateFeatures Sub "List(Of String)" object type be valid for .Net 2003 thanks Ger Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 7
    - VB.NET program with KB928365 = kablammo! I don't think I'm going to get that lucky. For one, this is a Windows Forms app not Web Forms, and we're talking VB.NET, not ASP.NET, or at least no IIS involved. Now if there is a setting somewhere else on the system similar to what that thread implies- I'd like to know, or if I'm missing something I'd like to know. Same behavior, but I don't even have a Web Service Extensions folder in my XP IIS machine. Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 8
    - VB2005 Horizontal Scrollbars thanks Leon. I have to admit being in the dark though. If I had 11 items and 10 in the field of view then my scroll amount would be 1. To get this I set min=0 and max=9 is there some sort of rule that I can use to figure this out Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 9
    - Create calculated column programmatically Hi and a happy new year, I encounter a serious problem with creating a named calculated colunm programmatically to the table of a DSV of an analysis database. I would like to create this named calculated column by means of VB but any help in C# is acceptable. I can created this column in Microsoft Visual studio design but I need to be created programmatically now. Thanks in advance Best regards, Manolis Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 10
    - VB SQL Question: "Arithmetic operation resulted in an overflow" Ok, I use a stored procedure to get the info into SQL, here is the proc: Create PROCEDURE [dbo] . [ ChkInsert] @CheckNumber varchar ( 50 ), @ItemId int AS Insert into CHKTracker ( CheckNumber , ItemId ) Values ( @CheckNumber , @ItemId ) Then I pass the parameters as follows: Dim objSql As New SQL() Dim SQLParams(1) As SqlParameter SQLParams(0) = New SqlParameter( "@CheckNumber" , item.CheckNumber) SQLParams(1) = New SqlParameter( "@ItemID" , item.ItemID) Return objSql.ExecuteNonQuery( "ChkInsert" , SQLParams) As well as : Dim item As New SQLParameters item.CheckNumber = CNBox.Text item.ItemID = ITLBox.SelectedValue SQL .AddItem(item) Let me know if you need more. Thanks Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 11
    - Preview option in Screensaver and .NET There is a standard set of API's to create the preview Window in the Screensaver tab of the Windows Display Properties form. Windows exposes the handle for the preview Window, each time you select a screensaver in the list, which is how they are each able to show a "preview thumnail". I am not saying it can't be done, but when I looked for a managed example, I could not find a managed .Net screensaver that did not use API calls to show the preview thumbnail, which is probably why Microsoft's .Net examples omit the preview window. I am sure you have noticed that whenever the "/p" argument is passed to your screensaver, it is followed by a space, and then a number. That number is the Windows handle that you need for thumbnail preview Window. To use the Windows Hwnd, make a form, set it to the size of the preview handle, and set the preview handle as your form's parent "form", and run it. Here's an example of a class that makes a preview thumbnail, from my Donnie Darko Screensaver app. Note that the DisplayPreviewForm sub requires an integer value argument, which is the handle that Windows supplies. Public Class Preview Private ThisExeName As String Private img As PictureBox Private ThisExe As System.Reflection.Assembly Private imgIndex As Integer Public Toggle As Boolean Public PrevHandle As IntPtr Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( ByVal hwnd As Integer , ByVal nIndex As Integer ) As Integer Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( ByVal hwnd As Integer , ByVal nIndex As Integer , ByVal dwNewInteger As Integer ) As Integer Public Declare Function GetClientRect Lib "user32" ( ByVal hwnd As IntPtr, ByRef lpRect As System.Drawing.Rectangle) As Integer Public Declare Function SetParent Lib "user32" ( ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer Public Rect As System.Drawing.Rectangle Private Sub PreviewTimer_Tick( ByVal sender As System.Object, ByVal e As System.EventArgs) If imgIndex = 0 Then img.Image = Image.FromStream(ThisExe.GetManifestResourceStream(ThisExeName & "." & "Thumb2.JPG" )) imgIndex += 1 Exit Sub End If img.Image = Image.FromStream(ThisExe.GetManifestResourceStream(ThisExeName & "." & imgIndex & ".JPG" )) imgIndex += 1 If imgIndex > 15 Then imgIndex = 0 End If End Sub Sub DisplayPreviewForm( ByVal hWnd As Integer ) ' Make a form to display. Dim f As Form = New Form PrevHandle = New IntPtr(hWnd) ' Get client rectangle where we will display preview. GetClientRect(PrevHandle, Rect) ThisExe = System.Reflection.Assembly.GetExecutingAssembly ThisExeName = ThisExe.GetName.Name ' Set preview form controls. img = New PictureBox With img .Dock = DockStyle.Fill .SizeMode = PictureBoxSizeMode.StretchImage .Image = Image.FromStream(ThisExe.GetManifestResourceStream(ThisExeName & "." & "Thumb1.JPG" )) Toggle = True End With ' set the preview form. With f .FormBorderStyle = FormBorderStyle.None .WindowState = FormWindowState.Normal .ControlBox = False .BackColor = Color.Aquamarine .Size = Rect.Size .Controls.Add(img) ' add child style to form Dim style As Integer style = GetWindowLong(f.Handle.ToInt32, -16) style = style Or &H40000000 SetWindowLong(f.Handle.ToInt32, -16, style) ' set preview window as parent SetParent(f.Handle, PrevHandle) ' Set the form's parent value to the preview window. SetWindowLong(f.Handle.ToInt32, -8, hWnd) f.Location = Rect.Location End With ' Make a timer, and set handler. Dim t As New Windows.Forms.Timer t.Interval = 2300 AddHandler t.Tick, AddressOf PreviewTimer_Tick ' Start the timer. t.Start() ' Run the preview display. Application.Run(f) End Sub End Class Here is the class that I used to for an entry point. (I made this in VS 2003, hence the Singleton Mutex, which is no longer needed in VS 2005, as it has single instance app. as a built in option.) Option Strict On Public Class StartUp <STAThread()> Overloads Shared Sub main( ByVal args As String ()) ' Uncomment the 2 lines below when debugging. 'Application.Run(New MainForm) 'Exit Sub Dim singleton As Threading.Mutex singleton = New System.Threading.Mutex( False , "DonnieDarkoScrnSaver") If Not singleton.WaitOne(0, False ) Then Exit Sub End If If args.Length > 0 Then Select Case args(0).ToLower.Trim().Substring(0, 2) Case "/s" ' Run as a screensaver. Application.Run( New MainForm) Case "/c" ' Settings. Dim s As New Settings s.ShowDialog() Case "/p" ' Preview. ' display preview thumbnail. Dim prev As New Preview prev.DisplayPreviewForm( CInt (args(1))) End Select End If End Sub End Class What I did was embed some thumbnails to display in the preview window, and as shown above, I used a timer to change the images. I uploaded the entire project to MediaFire.com, and posted a link to it in the MSDN Show and Tell page, about a month ago. Here is a link to it: http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=1563893&SiteID=1 Hope this helps, -matt- Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 12
    - Event when the "X" is clicked If I want to run specific code when the "X" is clicked as opposed to the form being closed by other means, how do I do that Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 13
    - Fix Intellisense in Visual Studio Request Isn't that what it's supposed to do I'm glad it's there...it's a good shortcut. Doesn't tab do what you need Or space (or am I missing something/not understanding the problem). Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 14
    - How do I set the row number of a DataGridView? Hi Hazz, Me.DataGridViewAnalog.Rows(rownumber).Cells(ColumnNumber or "ColumnName").Selected = True Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 15
    - Query for month Hi Cesar, Are you counting the number of total ( Mon to Friday ) weeks or total numbers of Fridays in a month to determine how many pay periods there are Regards, John. Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 16
    - Mathematics Have Got Me Crying Oh thank you so much, that was so simple, I thought my math was wrong somewhere. One more question, I have no idea how I would write this out in code: 2Tan^-1 * VCamera / 2Lens. The best I could come up with is this: (2 * math.tan^-1) * (VCamera / (2 * Lens)) But when I use this I get the error code Error " Argument not specified for parameter 'a' of 'Public Shared Function Tan(a As Double) As Double" Any help would be greatly appriciated. Tag: Visual Basic Language Midi and Visual Studio Visual Basic
- Next
  - 1
    - Trouble converting from c# to VB byte array How is this byte [] byReturn = GetReceivedData(sock, ar); converted to VB I have this.. but Dim byReturn() As Byte = GetReceivedData(sock, ar) returns Error 5 Value of type 'Byte' cannot be converted to '1-dimensional array of Byte'. Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 2
    - Change Address of Web Service Server Steve, thanks for the reply - where exactly should I put this code Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 3
    - Get\SetPixel and Save Bitmap Hi guys, I need to take chars and implement them inside an image. (using VB 2003) Each char has a matching color, and each color has a "long" ARGB value. For instance: Dim Clr as color = example.getpixel(1,2) And to convert it to long value I use toArgb Dim longValue as long = clr.toArgb Here's the thing, when I implement the pixels the first time, everything runs okay. I mean, when I test the implementation of the same file as it was first defined, I find the implemented pixels. Yet, when I run a test on the saved image (after img.save("x:\ddd.jpg")) I don��t find the "defined pixels" Code Block For picWidth = 1 To pic.VerticalResolution - 1 If (segmented(k - 1) = Nothing) Then 'if all cahrs have implemented pic.SetPixel(picWidth, picWidth + 1, Color.Violet) out = True Exit For End If returnValue = Chr2Color(segmented(k - 1)) 'sending color value of each char pic.SetPixel(picWidth, picWidth + 1, returnValue) k = k + 1 Next Code Block pic.Save("c:\123.jpg") 'Testing Dim imgTest As New Bitmap("c:\123.jpg") 'IF I TEST pic I'll find the pixels For picWi = 1 To imgTest.VerticalResolution - 1 returnValue = imgTest.GetPixel(picWi, picWi + 1) ClrTest = returnValue.ToArgb If ClrTest = -1146130 Then MsgBox("OK") Exit For End If Next I never get the OK msg, what's wrong I dont find it even if i enter the specific values of the location (e.g clr = getpixels(2,3)) Any assistance and idea is welcome. Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 4
    - two combobox in the same code I will only perform one conversion, for example if I wanted to convert Btu to horsepower-hrs then I would type in one textbox 10,000, select from the first drop down list select Btu, then from the second,select horsepower-hrs and the result would be displayed in another textbox next to the second drop down list. I have all the formula for these calculations with me its just a matter of getting them on the screen, again i am only using one button to perform the math/calculation, so, no matter which two items i select this one button will do all the math. I hope this helped to clear up some of the confusion, sorry. Hens Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 5
    - Prisoner of a TextBox ...although that more appropriate forum may not be the SSIS forum... Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 6
    - XML Creation. Here is an XML program i got working for a foreign person. Hi, Here is the FORM code. It writes the XML file when button1 is clicked.>> Imports System.io Imports System.Xml.Serialization Public Class Form1 Inherits System.Windows.Forms.Form # Region " Windows Form Designer generated code " Public Sub New () MyBase .New() 'This call is required by the Windows Form Designer. InitializeComponent() 'Add any initialization after the InitializeComponent() call End Sub 'Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose( ByVal disposing As Boolean ) If disposing Then If Not (components Is Nothing ) Then components.Dispose() End If End If MyBase .Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. Friend WithEvents Button1 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me .Button1 = New System.Windows.Forms.Button Me .SuspendLayout() ' 'Button1 ' Me .Button1.Location = New System.Drawing.Point(72, 160) Me .Button1.Name = "Button1" Me .Button1.TabIndex = 0 Me .Button1.Text = "Button1" ' 'Form1 ' Me .AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me .ClientSize = New System.Drawing.Size(292, 266) Me .Controls.Add( Me .Button1) Me .Name = "Form1" Me .Text = "Form1" Me .ResumeLayout( False ) End Sub # End Region Public Sub writeErrorData( ByVal strInfo As String , ByVal strDescricao As String , _ ByVal strNumeroErro As String ) Dim strCodUtilizador As String = "" Dim erro As New clsErro(strInfo, strData, strDescricao, strNumeroErro, strCodUtilizador) Dim erroPath As String = erro.ficheiroErro.ToString Dim xRoot As New XmlRootAttribute("Erro") xRoot.IsNullable = True Dim writer As New XmlSerializer( GetType (clsErro), xRoot) Dim file As New StreamWriter(erroPath, True ) writer.Serialize(file, erro) file.Close() End Sub Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click writeErrorData("TestString", "Testing", "7") End Sub End Class Regards, S_DS Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 7
    - How to search in XML file It may not help you now but in Orcas release - of which there is a beta1 to play with available for download - query xml with linq is really simple - here the code. Also you'll notice you can just paste xml into the code with the XML Literal feature of VB Now how simple is that - I line of code to query the XML. Module Module1 Sub Main() Dim x = < xml version="1.0" standalone="yes" ><DocumentElement> <Values> <Name>John</Name> <Occupation>Engineer</Occupation> <Age>35</Age> </Values> <Values> <Name>George</Name> <Occupation>Doctor</Occupation> <Age>40</Age> </Values> <Values> <Name>Nick</Name> <Occupation>Doctor</Occupation> <Age>30</Age> </Values> </DocumentElement> Dim y = From i In x...<Values> Select i.<Name>.Value, i.<Occupation>.Value, i.<Age>.Value Where Occupation = "Doctor" For Each i In y Console.WriteLine(i.Name) Console.WriteLine(i.Occupation) Console.WriteLine(i.Age) Next End Sub End Module Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 8
    - Multiple Frames Is it possible to have multiple frames within the same form I want this so that I won't have several forms floating around the screen. I have attempted this before, by having 1 form, where the corresponding components were either visible or hidden; but it came to a point where this was overwhelmingly difficult. If not, is there at least a way to go between forms seamlessly, giving the appearance of a single screen being open Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 9
    - Radio Button & My.Settings You only need one setting, and saves only one. Private Sub RadioButton1_CheckedChanged( ByVal sender As System. Object , ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked = True Then My .Settings.Unit = True Else My .Settings.Unit = False End If My .Settings.Save() End Sub On load, you can use Private Sub Form1_Load( ByVal sender As System. Object , ByVal e As System.EventArgs) Handles MyBase .Load If My .Settings.Unit = True Then RadioButton1.Checked = True Else RadioButton2.Checked = True End If End Sub Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 10
    - Reverse Engineering Reflector is great for looking at individual methods. It will take significant work to pull out an entire solution using Reflector. Another option would be to dis-assemble the solution using ILDASM, modify the IL and re-assemble with ILASM, but that requires coding in IL rather than VB. In short, yes, it is possible, but not an insignificant undertaking. Jim Wooley http://devauthority.com/blogs/jwooley Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 11
    - Telnet with vb I just need to open a telnet connection to a network power adapter and run some commands. Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 12
    - Custom control problem I suspect you are correct. However when I tried to inherit from TextBox I get the following error "Base Class 'System.Windows.Forms.TextBox' specified for class 'TestIntegerField' cannot be different from the base class 'System.Windows.Forms.UserControl' of one of its other partial types" I do not know to overcome this problem. Everything I tried made no difference. Thanks for the response rykk Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 13
    - Event ID: 26, exception 0x40000015 Sorry to say that, but this is not my program, I just write a DLL for it. And I have no opportunity to determine, which part of code is failing. Wanted to know at least direction of analysis. So far I have zero understanding what could be the source. Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 14
    - Compiler Error after Service Pack 2 thanks for your help It comes and goes....god knows what it is and we are STILL waiting for a response Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 15
    - Win32 handle that was passed to icon is not valid or is the wrong type. I was testing article http://support.microsoft.com/kb/319340/ to see if I could use this to populate a listview2 with the icons from Directory.GetFiles(apath) and getDirectories. If you go into c:\windows\system32 the program will hang for about 4 mins then if you go back to windows then back to system32 you will get the error. win32 handle that was passed to icon is not valid or is the wrong type. See the end of this message for details on invoking just-in-time (JIT) debugging instead of this dialog box. ************** Exception Text ************** System.InvalidOperationException: BufferedGraphicsContext cannot be disposed of because a buffer operation is currently in progress. at System.Drawing.BufferedGraphicsContext.Dispose(Boolean disposing) at System.Drawing.BufferedGraphicsContext.Dispose() at System.Drawing.BufferedGraphicsContext.AllocBufferInTempManager(Graphics targetGraphics, IntPtr targetDC, Rectangle targetRectangle) at System.Drawing.BufferedGraphicsContext.AllocBuffer(Graphics targetGraphics, IntPtr targetDC, Rectangle targetRectangle) at System.Drawing.BufferedGraphicsContext.Allocate(IntPtr targetDC, Rectangle targetRectangle) at System.Windows.Forms.Control.WmPaint(Message& m) at System.Windows.Forms.Control.WndProc(Message& m) at System.Windows.Forms.ButtonBase.WndProc(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) Imports System.Runtime.InteropServices Imports System.IO Public Class Form1 Private Structure SHFILEINFO Public hIcon As IntPtr ' : icon Public iIcon As Integer ' : icondex Public dwAttributes As Integer ' : SFGAO_ flags <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _ Public szDisplayName As String <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _ Public szTypeName As String End Structure Private Declare Ansi Function SHGetFileInfo Lib "shell32.dll" ( ByVal pszPath As String , _ ByVal dwFileAttributes As Integer , ByRef psfi As SHFILEINFO, ByVal cbFileInfo As Integer , _ ByVal uFlags As Integer ) As IntPtr Private Const SHGFI_ICON = &H100 Private Const SHGFI_SMALLICON = &H1 Private Const SHGFI_LARGEICON = &H0 ' Large icon Private nIndex = 0 Public files() As IO.FileSystemInfo Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load listview2.LargeImageList = ImageList1 listview2.SmallImageList = ImageList1 listview2.Columns.Add( "File Name" , 250, HorizontalAlignment.Center) listview2.Columns.Add( "Last Access" , 75, HorizontalAlignment.Left) listview2.Columns.Add( "Last Write" , 75, HorizontalAlignment.Right) LogicalDrive() End Sub Public Sub PopulateListView( ByVal apath As String ) Try Dim hImgSmall As IntPtr 'The handle to the system image list. Dim hImgLarge As IntPtr 'The handle to the system image list. Dim fname As New ArrayList(Directory.GetDirectories(apath)) 'The file name to get the icon from. Dim myName As String () = Directory.GetFiles(apath) Dim count As Int32 = 0 While count < myName.Length fname.Add(myName(count)) count += 1 End While Dim shinfo As SHFILEINFO shinfo = New SHFILEINFO() listview2.Items.Clear() listview2.BeginUpdate() listview2.View = View.Details shinfo.szDisplayName = New String (Chr(0), 260) shinfo.szTypeName = New String (Chr(0), 80) 'Use this to get the small icon. count = 0 While count < fname.Count hImgSmall = SHGetFileInfo(fname(count), 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_SMALLICON) 'Use this to get the large icon. 'hImgLarge = SHGetFileInfo(fname(count), 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_ICON Or SHGFI_LARGEICON) 'The icon is returned in the hIcon member of the shinfo struct. Dim myIcon As System.Drawing.Icon myIcon = System.Drawing.Icon.FromHandle(shinfo.hIcon) ImageList1.Images.Add(myIcon) 'Add icon to imageList. Dim myItem As New ListViewItem(fname(count).ToString) If File.Exists(fname(count)) Then myItem.SubItems.Add(File.GetCreationTime(fname(count))) myItem.SubItems.Add(File.GetLastAccessTime(fname(count))) myItem.ImageIndex = nIndex Else myItem.SubItems.Add(Directory.GetCreationTime(fname(count))) myItem.SubItems.Add(Directory.GetLastAccessTime(fname(count))) myItem.ImageIndex = nIndex End If listview2.Items.Add(myItem) 'listview.Items.Add(fname(count), nIndex) 'Add file name and icon to listview. nIndex = nIndex + 1 count += 1 End While fname.Clear() listview2.EndUpdate() Catch ex As Exception MessageBox.Show(ex.Message.ToString) End Try End Sub Public Sub LogicalDrive() Dim driveList() As String = Directory.GetLogicalDrives Dim drive As String = "" cmb.Items.Add( My .Computer.FileSystem.SpecialDirectories.MyDocuments) For Each drive In driveList cmb.Items.Add(drive) Next Dim sender As System.Object = Nothing Dim e As System.EventArgs = Nothing cmb.Text = "d:\" 'My.Computer.FileSystem.SpecialDirectories.MyDocuments 'cmb_SelectedIndexChanged(sender, e) End Sub Private Sub cmb_KeyDown( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyEventArgs) Handles cmb.KeyDown Try If e.KeyCode = Keys.Enter Then PopulateListView(cmb.Text) End If Catch ex As Exception End Try End Sub Private Sub cmb_SelectedIndexChanged( ByVal sender As Object , ByVal e As System.EventArgs) Handles cmb.SelectedIndexChanged PopulateListView(cmb.Text) End Sub Private Sub listview2_DoubleClick( ByVal sender As Object , ByVal e As System.EventArgs) Handles listview2.DoubleClick Dim items As String Dim Count As Int32 = 0 'ListView2.Items.Clear() Dim listFolderItems As ListView.SelectedListViewItemCollection = Me .listview2.SelectedItems Dim item As ListViewItem For Each item In listFolderItems cmb.Text = item.SubItems(0).Text cmb_SelectedIndexChanged(sender, e) Next End Sub End Class Tag: Visual Basic Language Midi and Visual Studio Visual Basic
  - 16
    - Nooby here again. Handle the keyDown event. uhhh... I just want the picture to move left or right or up or down... when i press an arrow key... nothing more... Tag: Visual Basic Language Midi and Visual Studio Visual Basic

Chris4578

Hello,

I have been working on a project relating to music in Visual basic.net 2003, I was wondering if it is at all possible to accept input from a midi keyboard/piano into my program. The concept of what I want to create is simple, I have a Music Note on the screen such as middle C and I want the program to recognize if I pressed the correct note or not. If anyone knows of any good books available that could help me out or online resources I would be happy to be pointed in the right direction.

Top

Re: Visual Basic Language Midi and Visual Studio

Spidermans_DarkSide - VSIP

Hi Chris,

Take a look at these other threads pointed to by this search result url link.

I found these using the forum search box above>>

http://forums.microsoft.com/MSDN/Search/Search.aspx words=Midi&localechoice=9&SiteID=1&searchscope=forumgroupscope&ForumGroupID=10

Regards,

S_DS

Top

Re: Visual Basic Language Midi and Visual Studio

Chris4578

Thanks! I sometimes have a hard time where to begin my search for info, thankyou for the reply.

Top