Visual Basic Power Packs Forum

RectangleShape not working in 2010?

Wed, 25 Nov 2009 21:47:17 Z

Hi,

I recently installed Visual Basic 2010 Express Edition Beta 2, it came with Visual Basic Power Pack which included the RectangleShape.

It appears I keep receiving an error after I build or try to save the project, and the form in designer mode is no longer accesssible, instead there's a massive error message which just covers the whole form it says something along the lines of:

System.NullReferenceException: Object reference not set to an instance of an object.

plus other stuff

This is exactly what I did, in case you decide to try it out yourself:

I created a form, with a FormBorderStyle 'None' and set a background image. I then put a RectangleShape, BackColour 'White', BackStyle 'Opaque', BorderColour 'Silver', CornerRadius '7'.

It works the first build, but then upon returning to the designer mode, I receive the error.

I also downloaded VB PowerPack 3.0

Any suggestions?

Regards

vb power pack in C#

Wed, 25 Nov 2009 18:42:46 Z

Hello,
I am trying to include the NotificationWindow, TaskPane, ImageControl in my windows forms application in C#..but i can't find them anywhere..not in the toolbox ...
Please tell me how can i use these control in my C# application.

copy vb.net project from 1 to other computer

Thu, 19 Nov 2009 18:07:26 Z

hello.

ive copied my vb,net application from one computer to another.
now i get all of these errors:

Error 2 Type 'Microsoft.VisualBasic.PowerPacks.ShapeContainer' is not defined. C:\Documents and Settings\Hanzie\My Documents\Visual Studio 2008\DocReg-local\DocReg-local\FrmNieuweTekening.Designer.vb 74 34 DocReg-local

I installed on my second computer powepack 3.0 But this doesn't resolve anything. Any help?
thanx in advanced.

vb.net

Printing reports

Thu, 12 Nov 2009 23:02:06 Z

Im trying to print a part of the database. right now it end up like this

Titel

<table>
<tr>
<td colspan="2">Title
</td>
</tr>
<tr>data1<td></td><td>data2</td></tr>
<tr>data1<td></td><td>data2</td></tr>
</table>


<table>
<tr>
<td colspan="2">Title2
</td>
</tr>
<tr>data1<td></td><td>data2</td></tr>
<tr>data1<td></td><td>data2</td></tr>
</table>

means that the data line is longer, till a page
As you see its under each other.
I would like to have them beside each other. like five on a page and then the next five on the next page

I hope you know what i mean

DataRepeater: filter pictures by

Sat, 07 Jun 2008 20:58:50 Z

I have datarepeater with 1 picturebox control which on form load I would like to fill with images (*.jpg, *.bmp, *.tiff, *.png) found in my pictures.

I have textbox1 used to pass a searchstring to the filter.

Once loaded I would like to filter the pictures in the datarepeater by filename

Code:

Me.DataRepeater1.Filter = String.Format("[File Name] LIKE '%{0}%'", Me.TextBox1.Text)

Can someone please show me how to set this up ?

using VB.NET Express 2008

PowerPack 3 Datarepeater

Thu, 27 Mar 2008 20:24:40 Z

Description:

1-Add a new Datarepeater that is connected to a table say of 100 records

2-Add a button to the Repeater and set the databindings to a field in the table

3-Add a trackbar on the form outside the repeater to control the button

4-Add this line when to the trackbar scroll event

Datarepeater.currentItem.controls("Button1").width=Trackbar1.value

5- scroll down on the repeater you will find that not only the current button changed but every 15 or so change as well

bugy bugy bugy , Just the fact that there is no control as Datarepeater.item( number ) is a shame

Repro Steps:

Actual Results:

Expected Results:

Product Name and Version:

Datarepeater - frustrating!

Thu, 18 Jun 2009 17:26:31 Z

I know I'm coming off as a whiny-brat but working with this datarepeater control is so frustrating! No matter how much I read about it and how much I try things, I just cannot get it to work like I want. I'm sure most of the problems are my own ignorance. I'm finishing up my 5th day trying to get comboboxes to work in a dr.

I have three main problems currently, two of which I've posted here on this forum but haven't received an answer as yet. The 3rd is that, if there is more than one row in the dr, and all rows have a combobox control, then changing the selection in one combo changes them all. Here is my code. I've noticed that the "For Each s As String..." loop never gets executed. Might this be causing the problem and if so, how do I resolve it?

Private Sub PeopleTypes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    LoadComboBox()

    PeopleTypesDatarepeater.BeginResetItemTemplate()

    strSQL = "SELECT * FROM viewPeopleTypes WHERE PeopleID = " & intID
    daPeopleTypes = New SqlDataAdapter(strSQL, connPeopleTypes)
    daPeopleTypes.Fill(dt)
    bs.DataSource = dt

    PeopleTypesDatarepeater.EndResetItemTemplate()
    PeopleTypesDatarepeater.DataSource = bs

    If bs.Count = 0 Then
        btnDelete.Visible = False
    Else
        btnDelete.Visible = True
    End If

End Sub

Private Sub LoadComboBox()

    daPTCombo = New SqlDataAdapter( _
      "SELECT * FROM tlkpPeopleTypes ORDER BY PeopleType", connPeopleTypes)

    'set up People Type combo box
    daPTCombo.Fill(dsPTCombo, "tlkpPeopleTypes")

    cboPeopleType.DataSource = dsPTCombo.Tables("tlkpPeopleTypes")
    cboPeopleType.DisplayMember = "PeopleType"
    cboPeopleType.ValueMember = "PeopleTypeID"
    cboPeopleType.Text = ""

End Sub

Private Sub PeopleTypesDatarepeater_ItemCloned(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.PowerPacks.DataRepeaterItemEventArgs) Handles PeopleTypesDatarepeater.ItemCloned

    Dim Source As ComboBox = _
          CType(PeopleTypesDatarepeater.ItemTemplate.Controls.Item("cboPeopleType"), ComboBox)
    Dim ComboBox1 As ComboBox = _
          CType(e.DataRepeaterItem.Controls.Item("cboPeopleType"), ComboBox)

    For Each s As String In Source.Items
        ComboBox1.Items.Add(s)
    Next

End Sub

I've not done much reading about VS2010. Has the dr control improved any? If so, it may worth an upgrade since I can see where I will need this a lot as I convert old Access mdb's to .Net.

Thanks for any help or advice.

How Can I Suppress the 2005 Printing Status Dialog?

Fri, 20 Jun 2008 21:52:08 Z

We are using the Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6 namespace Printer object to print bar code labels in an application converted from VB6. What would be the easiest way to suppress the printing status dialog?

Some background:

This is being done in a VB .NET 2005 Windows forms application. Our users have the Framework 2.0 and cannot easily be given 3.X at this time.

Unlike in the VB6 equivalent, printing results in a brief status dialog appearing, and then disappearing. The dialog has caption of "Printing" and a text reading "Page 1 of document." The dialog box has a Cancel button on it, although a user would have to have quite fast hand-eye coordination to use it before it disappears.

Users work quickly to create customer-identifying bar codes for incoming correspondence. Some are amazingly quick. For this reason, we call print logic asynchronously, which works fine. However, if the user is typing in the next customer number, and the status dialog pops up, this causes an annoying loss of focus in the text box control they are typing into.

Rewriting to not use the compatibility library would be tricky and require a lot of testing. I suppose I could write the information to the database and have the printing done by a background server process, but ideas pointing to a more elegant solution will be greatly appreciated.

Steve Eisenberg Pennsylvania, USA

coverage of different vb.net programs

Thu, 12 Nov 2009 15:09:58 Z

hey can u tell me this.

i want to do statement coverage,branch coverage,class coverage,block coverage of my vb.net program.can u pls tell me the code for this.i will be really gr8ful.

Incompatibility with Visual Studio 2010 Ultimate Beta 2

Sat, 14 Nov 2009 21:14:04 Z

So I recently got Visual Stuudio 2010 Ultimate Beta 2 off Dreamspark, and have updated a 2008 project. I find out that the PowerPacks (Such as RectangleShape) are not compatible with this edition. How can I get them to work, or if there is any other information, where?

open

Sat, 14 Nov 2009 13:08:31 Z

i have problem. how to open object such as game on desktop. i don't now what coding suppose to use. i use vb.net

VB Database Form Templates for VS 2005?

Mon, 09 Nov 2009 15:40:48 Z

I need to create a form which will access data residing on a MySQL database stored on our website. I will need to be able to view and edit all records in the database. I am an experienced VB6 programmer, but have let things slide a bit over the last 5-6 years. I now only have VS 2005.

Is the an existing wizard, or form template out there that I can use to expedite development of this project?

Thanks for any help!

Dan Johnson

Dan Johnson

Help fast OCX file missing

Tue, 10 Nov 2009 11:33:31 Z

nevermind

How to move a Shape?

Tue, 27 Oct 2009 15:49:38 Z

As my precedent question was the most probably a PowerPacks bug, my following question is more direct. How to move a OvalShape?

I have a simple code, that works only if I move the shape little by little, without quit the shape area. I would like to move it in a "usual" (even if the cursor temporary leaves the shape, the shape should follow the cursor) way.

Imports Microsoft.VisualBasic.PowerPacks

Public Class Form1
  Private mbox As New MoveBox

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    mbox.Location = New Point(30, 30)
    ShapeContainer1.Shapes.Add(mbox)
  End Sub

End Class



Public Class MoveBox
  Inherits OvalShape

  Private _isActive As Boolean
  Public Sub New()
    Me.Size = New Size(10, 10)
    Me.BackStyle = PowerPacks.BackStyle.Opaque
    Me.BackColor = Color.Blue
    Me.BorderColor = Color.Red
  End Sub

  Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
    MyBase.OnMouseDown(e)
    _isActive = True
  End Sub

  Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
    MyBase.OnMouseUp(e)
    _isActive = False
  End Sub

  Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
    MyBase.OnMouseMove(e)
    If Me._isActive Then
      Me.Location = Me.Location + e.Location - New Point(Me.Width \ 2, Me.Height \ 2)
    End If
  End Sub
End Class

Thanks.

Best regards, Sergiu

I am confused - plse help

Mon, 02 Nov 2009 09:41:21 Z

I want to use the datarepeater to display data generated by the application itself - available in an array?
i.e.
- at design time no datasource available
Question:
- is this possible and if yes, how?

Wim

Can't Anchor control as expected in a DataRepeater

Thu, 23 Jul 2009 16:37:25 Z

I have a data repeater (vertical mode) where I have some labels/textboxes that need to be top + right anchored so that they stay their original size but remain aligned to the right side as the data repeater grows/shrinks.

If I set top + right anchors on any label/textbox then it dissapears from the form, presumably they're off the right hand side in space.

If I set left + top + rigtht anchors then they stay in position but grow/shrink, which is not the required effect.

I've also tried using a panel control docked full in the data repeater with my control on the panel but get the same problem.

Distribute vb.net application with power pack dll's

Mon, 19 Oct 2009 22:52:36 Z

Is it possible to distribute and application with only the needed dll's? I use INNO to package a setup file, and if I include the power pack distribution exe it wants to repair or uninstall if the user try's to install an updated setup file.

The other answer to this question could be what is the registry key to determine if the power pack is already installed, as I could have INNO skip running the power pack exe. However, just including the required dll's side by side would be the prefered method.

Thanks,

Eric Figge.

Deploying PowerPacks

Mon, 02 Nov 2009 08:32:10 Z

We've migrated the code from VB to VB.Net.For implementing the Print,Visual Basic Powerpacks is used. What's the best option for deploying Visual Basic Powerpacks in client machine ? We don't have 'gacutil' in the client machine .Please advice on a resolution.

Thanks,

File Shredder

Mon, 02 Nov 2009 05:03:33 Z

I'm not sure if this is the right location for this post, but how effective of a file shredder would this be, first I'll explain, then show my code for each part.

in the declarations, I've got this.

Dim Random as New Random

            OpenFileDialog1.ShowDialog()
            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Output)
            PrintLine(1, Random.Next)
            FileClose()

What it does, you've got an open file dialog, it opens the file, and prints the line (Random.Next) so like random numbers.
then it closes that file, as shown as above.

Then, it repeats that code over 100 times, then uses the My.Computer.FileSystem to Change the File's name & type.

My.Computer.RenameFile(Openfiledialog1.filename, Random.double)

The random DOUBLE saves it as like

0.494758395095

Thus, changing the file name, and type.
So like:
FILE NAME = 0
FILE TYPE = 494758395095

How effective would that be?

Using MSComm component to communicate via bluetooth

Mon, 26 Oct 2009 14:07:26 Z

Hi,

I am developing a program to receive data from a device via bluetooth.

I set my bluetooth dongle to a com port and can easily read data from it. The article here (http://support.microsoft.com/default.aspx/kb/194922) was very useful.

But, I have a problem. When the bluetooth connection is lost (eg. when the device is shut down or when the device leaves its bt range), the program can not understand it.

In debug mode; I've realised that the events (comEvCTS, comEvDSR, comEvCd and comEvRing) on MCComm1_OnComm() runs in turn one by one when I switch off the device.

Do you think should I use this situation to control if the connection is lost?

Why MouseMove event is different?

Tue, 27 Oct 2009 13:43:03 Z

Hello, I wondering why the mouseMove event is different vs the normal controls?

In the normal objects the MouseMoveEvent continues if the mouse was pressed(Down) and the cursor leaves the control.

By ex, I have the following code:

Public Class Form1
  Private mbox As New MoveBox

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    mbox.Location = New Point(30, 30)
    Me.Controls.Add(mbox)
  End Sub
End Class

Public Class MoveBox
  Inherits PictureBox

  Private _isActive As Boolean
  Public Sub New()
    Me.Size = New Size(10, 10)
    Me.BackColor = Color.Blue
  End Sub

  Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
    MyBase.OnMouseDown(e)
    _isActive = True
  End Sub

  Protected Overrides Sub OnMouseUp(ByVal e As System.Windows.Forms.MouseEventArgs)
    MyBase.OnMouseUp(e)
    _isActive = False
  End Sub

  Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
    MyBase.OnMouseMove(e)
    If Me._isActive Then
      Me.Location = Me.Location + e.Location - New Point(Me.Width \ 2, Me.Height \ 2)
    End If
  End Sub
End Class

This code allows move a pictureBox with the pressed mouse.
But when I try to inherit the OvalShape, The code does not work, cause the MouseMove event is not generated when the cursor leaves the shape control...

Best regards, Sergiu

PrintForm Print to File

Wed, 21 Oct 2009 17:06:09 Z

Hello,
I have created a report on a form that looks exactlty like what I want printed in a single page. I am using VB 2005 Power Packs PrintForm and using PrintToPreview. I want to only print the client area. The preview shows the form running off of the right side of the paper. How can I shift the image so that the report is centered on an 8.5 x 11 portait page?
Thank you.

VB6 EXE ACCOUNT SOFTWERE

Mon, 19 Oct 2009 09:06:01 Z

Printer Name in ActivePrinter

Tue, 20 Oct 2009 05:28:00 Z

Dim objApp As Application = new Application ()

ok --> objApp.ActivePrinter = "\\192.168.11.11\hp LaserJet 1300 PCL 5e on Ne01"
error --> objApp.ActivePrinter = "\\192.168.11.11\hp LaserJet 1300 PCL 5e"
i pickup Printer name in PrinterSettings.InstalledPrinters.Item() ,
and these pickup item seems short " on Nexx" .

so now , how can i get the printer name ends with " on Nexx"
or say that how to get the correct printer name which objApp.ActivePrinter can accept.

Navigating records in the data repeater control

Fri, 16 Oct 2009 16:49:14 Z

I have a data repeater control on my form. I have successfully binded the control to a data source. On the control I have two text fields. The first text box contains an ID that I would like to searh on, and bring it to the top of the data repeater control... how do I do that?

Using VB.net Studio 2008 SP1

Thanks
Gary

Bug? installing VB PP3

Tue, 04 Mar 2008 19:13:12 Z

Description: getting hung up on VB PP3 install

Repro Steps: Install PP3

Actual Results: Hanging when removing backup files - shortcut: kgjuvdii/PrintForm Sample

Expected Results: successful completion of install

Product Name and Version: VB PP 3.0

See Screen shot of reinstall try.

vb/ power pack 3.0 hangs when install, repair, uninstal.

Tue, 13 Oct 2009 17:28:22 Z

I have vb 2008 on a vista 64 machine and saw info on powerpack 3.0 so thought I would install it. it keeps hanging up when gets to the print form part of the installation. But when went to install again, it says "uninstall" or "repair" But both of these hang in the same place.

Went to the uninstall via the control panel and it still hangs so had to shut that down as well.

What can I do?

delete icon from task bar

Wed, 14 Oct 2009 17:37:52 Z

How do I delete an icon from the task bar?

Tooltips

Tue, 25 Sep 2007 06:49:01 Z

How do I popup tooltip from a shape control?

how can i deliberately invalidate the visible repeater items?

Fri, 02 Oct 2009 02:14:50 Z

I want to programmatically invalidate the visible repeater items such that ItemValueNeeded will be fired for each of them. What I have is a transaction register where each repeater item is a transaction that shows a running total on the right. When one transaction is updated, the running balance is recomputed for the affected items in my datatable, but the new values will not automatically be shown for visible items until they are scrolled out of view and back.

One might suggest that a quick n dirty approach would be to get the currently displayed items out of view and then return programmatically, but this is no good if in fact there aren't enough repeater items.

Thanks

How to Start with Visual basic Experss 2008

Sat, 03 Oct 2009 18:45:41 Z

I want to draw a figure of Gas turbine Power generator and make operator simulator for Gas turbnine generator
Can any one guide me about it

Datagrid BindingSource Filter Reverencing Another Datagrid Value

Mon, 05 Oct 2009 14:27:10 Z

Hi, I want to use a selection in one datagrid to filter the values in another datagrid. It looks like I should be able to use the bindingsource filter property. How do I reference the value in the controlling datagrid here? An example would be very helpful.

TIA

How to Make a DLL or Class Library using PowerPacks?

Wed, 30 Sep 2009 07:18:52 Z

Hi, my problem is I want to make a new dll or library such that I will be using the PowerPack - RectangleShape as my control since I want it to be my background as a page layout for my customize report designer that I am making.

Here is the code after I have created a new project of Class Library and referencing the powerpacks vs :

Imports System.ComponentModel
Imports Microsoft.VisualBasic.PowerPacks

Public Class Class1
    Inherits RectangleShape

    Public Sub New()
        MyBase.New()

    End Sub

End Class

if it is only a textbox, it does not produce an error, but whenever I change it to rectangleshape, it already produces an error even before I build it. I know I should try to create first a shapecontainer, but even I declare and instantiate within the class a new shapecontainer, it still does not work.

Please help me.

Questions about Data Repeater

Wed, 30 Sep 2009 22:06:15 Z

Hello Everyone,

I have a dataset that I am creating at runtime. How would I go about binding controls inside the datarepeater to columns in my datatable?

I tried the following in the DrawItem event and got an error "This causes two bindings in the collection to bind to the same property. Parameter name: binding"

Label1.DataBindings.Add(

"Text", dt.Rows(e.DataRepeaterItem.ItemIndex), "Allergy")

Anyone have any ideas how this can be accomplished without building the dataset at design time?

Okay, now im getting a different error.
Cannot bind to the property or column Allergy on the DataSource. Parameter name: dataMember

The datatable has 6 rows in it, and 2 columns (ID and Allergy) the repeater shows all 6 rows, just cant bind to the column.

Any ideas how I can fix this?

Thanks!!

How to open Password protected Excel in VB 6.0

Wed, 30 Sep 2009 05:46:05 Z

Hi,

I need to read data from excel worksheet which is protected by password. I know the password, how to pass the password in connection string. my connection string is

"DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=C:Test.xls"

Please help me. It will be very appreciable....

Thanks,
Jensen

DataRepeaterItem with Binding Controls Scroll Problem

Wed, 30 Sep 2009 08:16:00 Z

Hi,

I have DataRepeater Control with have binding one button and one textbox controls on it's repeaterItem.

I use this text and item for adding items with some value ( I mean, you enter a number and press "Add" button on DataRepeaterItem and Button Caption Changed "Substract"), but i scroll the DataRepeater, previously i entered text value and butoon caption changes their places.

I hope i cann tell my problem,

thanks in advance

Multiple User Controls appear in the toolbox

Fri, 11 Sep 2009 13:29:49 Z

Hi, iam using visual studio 2008 and when iam using VB.net and i try to add a user control to the toolbox which is fine. i can use this control and nothing is wrong with it but when i build or re-build the project, it creates multiple instences of the same control in the toolbox(basicly the controls are cloning themselfs) after a while i might have 15 usercontrols in the toolbox and it becomes cluttered with copys.Anyone heard of this before?

DataRepeater AddNew blowing up

Mon, 25 Feb 2008 21:15:45 Z

I've got a DataRepeater with no bindings that is blowing up when I try to add a new item in the my user control's Load event.

Code:

Code Snippet

Private Sub ctrl_533_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

drHistory.AllowUserToAddItems = True

drHistory.AddNew()

End Sub

Resulting error:

ERROR MESSAGE:
Object reference not set to an instance of an object.

STACK TRACE:
   at Microsoft.VisualBasic.PowerPacks.NullDataManager.CancelCurrentEdit()
   at Microsoft.VisualBasic.PowerPacks.DataRepeater.CancelEdit()
   at Microsoft.VisualBasic.PowerPacks.DataRepeater.EndCurrentItemEdit()
   at Microsoft.VisualBasic.PowerPacks.DataRepeater.AddNew()
   at RPM.Physical.Main.ctrl_533.ctrl_533_Load(Object sender, EventArgs e) in C:\Code\DotNet05\RPM 4\usercontrols\ctrl_533.vb:line 862
   at System.Windows.Forms.UserControl.OnLoad(EventArgs e)
   at System.Windows.Forms.UserControl.OnCreateControl()
   at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
   at System.Windows.Forms.Control.CreateControl()
   at System.Windows.Forms.Control.ControlCollection.Add(Control value)

...

Any ideas as to what is going on and how to fix it?

datarepeater template area

Thu, 24 Sep 2009 17:40:23 Z

Hello
I am using a datarepeater control with VS 2008 SP1 to display photos and information of dogs on a Win Form. I have the dogs picture, and 3 bound text boxes with information associated with the animal. I have a click event handler on the picture that should when click retrieve some information from the text boxes and update a dataset. When I step thru the code though, all of the text boxes are showing empty strings even though there is data in them.

Do I need to reference the controls different?

Private Sub DogPicture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DogPicture.Click
        Try
            'Debug.Print(Me.StatusTextBox.Text)
            If Me.StatusTextBox.Text = "OUT" Then
                Me.DogsBindingSource.EndEdit()
                Me.DogsTableAdapter.UpdateStatus("IN", Me.txtDogID.Text)
                Me.DogsTableAdapter.DDogs(Me.DS.Dogs)
            Else
                Me.DogsBindingSource.EndEdit()
                Me.DogsTableAdapter.UpdateStatus("OUT", Me.txtDogID.Text)
                Me.DogsTableAdapter.DDogs(Me.DS.Dogs)
            End If

        Catch ex As Exception

        End Try
    End Sub

Thanks! Ryan

Is there any sample code available for the DataRepeater?

Wed, 23 Sep 2009 12:49:46 Z

Is there any sample code available for the DataRepeater? It would be great to have the code for the weather forecast example.