VBTech

Linq to Bindingsource

2011-06-13T08:30:00.003-05:00

Issue: I want to build a dynamic treeview that 1) only loads the children when a parent is selected. 2) displays how many children in the node name. 3) works with filters already performed against the bindingsource.The ideal way (in my mind at least) was to run sql against the bindingsource, that way the filters would be maintained. I do know a bit of linq and really hoped there was a linq to

My Settings (persisting data)

2009-11-04T12:41:00.005-06:00

My Settings is a way to store data and settings used by your program for use on elsewhere (or at a later time. Say a user wants currency to show Euros instead of dollars, you can save this preference in My.Settings. Here's how:Start by building a form with 2 checkboxes, a textbox, and a button.Next go to Project->'yourAppName' PropertiesChoose Settings on the left and create some properties to

Pan Image with click and drag

2009-10-30T09:35:00.002-05:00

Someone on MSDN asked a question about clicking and draging an image to pan around while zoomed. The control already did the zoom and consists of a picturebox within a panel with autoscroll turned on. This would let you use the scrollbars to navigate, but the poster wanted to pan by dragging so here it is. I will add to it as needed but this seemed to work pretty well.Public Class Form1Dim x1, y1

VBA: Copy x sheet from each file in folder

2009-10-29T16:17:00.001-05:00

Sub CopySheet()Dim basebook As WorkbookDim mybook As WorkbookDim i As LongDim filePath As StringfilePath = "C:\Documents and Settings\user\Desktop\Baskets\" Application.ScreenUpdating = False With Application.FileSearch .NewSearch .LookIn = filePath .SearchSubFolders = False .FileType = msoFileTypeExcelWorkbooks If .Execute() > 0 Then Set

VBA: Random Letter generator

2009-10-29T16:14:00.001-05:00

Private Sub MakeRandom()Dim theNum As DoubleDim theUpper As StringDim theLower As String' Upper CasetheUpper = Chr(64 + Rnd() * 10000000 Mod 26)' Lower CasetheLower = Chr(96 + Rnd() * 10000000 Mod 26)End Sub

VBA: Manipulate registry MAKE A BACKUP FIRST

2009-10-29T16:12:00.001-05:00

*Not responsible for those who mess up and didn't backup. Dim pRegKey As RegistryKey = Registry.CurrentUser pRegKey = pRegKey.OpenSubKey("Software\\Microsoft\\Internet Explorer\Main", True) 'Dim val As Object = pRegKey.GetValue("Display Inline Images") pRegKey.SetValue("Display Inline Images", "no")

VBA: Extract all data from a closed workbook

2009-10-29T16:11:00.000-05:00

Dim ConString As StringDim strSQL As StringDim DBPATH As StringDim recordset As New ADODB.recordsetDBPATH = ThisWorkbook.Path & "\Data.xls"ConString = "Provider=Microsoft.jet.oledb.4.0;" & _ "Data Source=" & DBPATH & ";" & _ "extended Properties=Excel 8.0;"strSQL = "SELECT * FROM [Data$]"Set recordset = New ADODB.recordsetOn Error GoTo cleanup:Call

VBA: Find all files in folder by extension

2009-10-29T16:06:00.001-05:00

Sub findBSAfiles() Dim objFSO As ObjectDim objFolder As ObjectDim objFile As ObjectDim strPath As StringDim strName As String ' Specify the folder... strPath = "pathname"' Use Microsoft Scripting runtime. Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPath) ' Check extension of each file in folder. For Each objFile In objFolder.Files

VBA: Remove buttons by name

2009-10-29T16:04:00.002-05:00

'If the forms menu, useSub RemoveButtons() Dim ShapeA As Button For Each ShapeA In ActiveSheet.Buttons If ShapeA.Caption = "Doodle" Then ShapeA.Delete Next ShapeAEnd Sub'If from the control toolbox, useSub RemoveButtons() Dim ShapeA As OLEObject For Each ShapeA In ActiveSheet.OLEObjects If ShapeA.Object.Caption = "Doodle" Then ShapeA.Delete Next

VBA: Get pressed key

2009-10-29T16:00:00.002-05:00

Declare Function GetKeyState Lib "user32" _(ByVal nVirtKey As Long) As IntegerConst VK_CONTROL As Integer = &H11 'CtrlSub test() If GetKeyState(VK_CONTROL) < 0 ThenCtrl = TrueElse Ctrl = False If Ctrl = True Then MsgBox "pressed" Else MsgBox "Not" End IfEnd Sub'And this in the sheet modulePrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Call testEnd Sub

VBA: Open all workbooks inside a folder, run macro and save them

2009-10-29T15:59:00.002-05:00

Sub LoopFolders()Dim oFSODim Folder As ObjectDim Files As ObjectDim file As Object Set oFSO = CreateObject("Scripting.FileSystemObject") Set Folder = oFSO.GetFolder("c:\MyTest") For Each file In Folder.Files If file.Type Like "*Microsoft Excel*" Then Workbooks.Open Filename:=file.Path '<<<<< run macro here on Activeworkbook Activeworkbook.Close

XML to Dataset

2009-10-23T09:38:00.001-05:00

Here is some quick code illustrating how to put XML data into a dataset. Drom a datagridview on your form and drop in this code, change the table number near the end to suit your particular needs.Imports System.IOPublic Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load'load xml into a dataset to use hereDim dS As New DataSetDim fS As

Copy & Paste Form Controls

2009-10-22T10:05:00.003-05:00

My previous post worked with the chart controls in VS. While working on my own project I realized a need for the ability to copy the chart control and place it into another program such as Excel or Powerpoint.I tried many combinations of things, but they just weren't working. Then I stumbled upon this article by Scott Lysle (http://www.a1vbcode.com/app-3902.asp) which made the whole thing easy.

VS 2010 Chart/Dundas Charting

2009-10-21T07:47:00.009-05:00

I have worked on a very limited basis with Dundas (http://www.dundas.com/) charts in the past and have waited quite some time for charts to come to WinForms. VS2010 finally does this, and from what I can tell they are an exact replica of Dundas if not the actual chart themselves. I built a project with the Dundas charts and had to tweek many of the parts, so this post will serve as a guide to

Allow Users to Drag & Drop Controls

2009-07-06T19:08:00.005-05:00

Many times your users want to view their data in a particular way, but most people think it is too difficult to allow them to customize or don't even think it is possible. This reasoning may come from the plethora of poor information and general ignorance found when searching for such capabilities. Most methods are ridiculously difficult, overly vebose, or a pain to implement, and as usual there

Custom Ink Control Part II

2009-06-22T14:02:00.004-05:00

After completing the previous control, I decided I wanted to extend its functionality, this post will attempt to do that. You will need to complete Custom Ink Control to be able to follow along on this post as it basically just adds on to it.I want to be able to change the color of the ink used on the control, to do this i will need to add a ColorDialog control to the form. Now create another

Custom Ink Control

2009-06-22T09:08:00.006-05:00

This post will hopefully show how to create a custom ink input control for a tablet PC. Don't worry if you don't know how to build a custom control, this is going to show you everything. I don't know at this point what it will include, but i'm tired of re-creating ink controls over and over again. So this will be a base control to use in other projects. Things I know will be implemented are:Text

Tablet Programming Part 4: Advanced Gesture Control

2009-05-29T08:31:00.002-05:00

Interfaces have made a huge leap forward in products such as the iPhone that allows you to navigate using gestures, your programs can do this too, and its not as difficult as you might expect.The tutorial that follows will utilize several concepts from tableadapters to inkoverlays and I will not go too far into detail on them while creating them, but each of these is discussed in-depth with

Tablet Programming Part 3: Pen Input and Gesture Control

2009-05-28T13:30:00.004-05:00

While you can create a sample on your own, it is best to start the Tablet Programming series at part 1 to build a sample. If you don't need a sample, jump right in.This first part will only work on systems that can tell how the pen is being held, i'm not sure whether or not they all are, but just know you MAY not be able to do this on your particular model.Erasing:I thought this part would be a

Tablet Programming Part 2: Save, Load

2009-05-28T10:53:00.003-05:00

This part builds off Tablet Programming Part 1, if you need to follow along then I advise completing it first.In this step we will learn how to save and load ink.Let's start with save. There are many file types that you can save to, but for these purposes I will show you the simplest and most useful, .ISF. With an .ISF file you can open it back up and continue adding strokes, wheras other formats

Tablet Programming Part 1 Getting Started

2009-05-28T09:04:00.008-05:00

Programming controls on tablets can be a bit tricky, and converting handwriting to something legible can be even trickier. In this post I will cover some of the basics of how to create controls that people can write on and how to convert that to numeric or text input. In a later post I will dive a bit further into this with a post on gesture control.To get started you obviously need a tablet PC

TableAdapter Part3

2009-05-19T12:25:00.000-05:00

This is something I found just the other day while working with the Fill method. If you want to follow along, add a datasource and drag a table to your form (see earlier posts if you don't know how). I am working with the Customers table from the Northwinds.mdb.This is a short post but very beneficial. Say you have a table you need to work with but you are doing it on a pretty puny device, or the

BindingSource

2009-05-19T12:24:00.000-05:00

The .NET BindingSource was an area of great confusion for me, I kept wanting to use the DataGridView to sort and filter and all that and it kept me from doing a lot of things, from this point forward you should use DataGrids and DataGridViews to display and format data ONLY.I am going to use the form that I built for the TableAdapter series as an example, but really the only thing you need to do

TableAdapters Part 2

2009-05-19T09:30:00.000-05:00

Now for some more advanced training. In Part 2 we will build a link between 2 tables, one populating based on what was selecting in the first. If you want to follow along you will need the form built from Part 1.In your Data Sources screen, choose to select a new source. You can use the same connection string and this time add the "Orders" table. Notice that .NET created a new dataset that

TableAdapters Part 1

2009-05-19T08:24:00.000-05:00

The first step in letting .NET handle all of your data connections, datasets etc. is to add your data source to the project. Go to Data->Show Data Sources to get to the Data Sources screen and click "Add new datasource". It is pretty self explanatory from here to choose a database type, navigate to it, and choose the tables/views you want. If you want to follow along I am using Northwinds.mdb and

DataSets and TableAdapters

2009-05-19T08:06:00.000-05:00

Before .NET 2005 I accessed data the same way every one had for years, build a connection string to a database, build a command, open the connection, run the command and close the connection. That was the process if you were lucky and didn't have to do inserts or cascading deletes or updates. Some poor folks still do it this way, typically saying crazy things like "it gives me more control over

Reboot

2009-05-19T08:01:00.000-05:00

I have deleted the entries here and I am making a new effort at keeping this thing up to date. When I run into a problem programming, I can usually find the answer using Google. If the answer is not straightforward, lacking in some way, or non-existant then I will post my workable solution here. I will post as many error messages as possible so solutions might be easier to find.This blog is