Samples and Demo Applications - COM - VB

Print Page | Close Window

COM - VB - XAML Grid Demo

Printed From: Codejock Forums
Category: General
Forum Name: Samples and Demo Applications
Forum Description: Post your samples and demo applications here.
URL: http://forum.codejock.com/forum_posts.asp?TID=14682
Printed Date: 03 December 2024 at 1:54pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com

Topic: COM - VB - XAML Grid Demo

Posted By: Krog
Subject: COM - VB - XAML Grid Demo
Date Posted: 03 July 2009 at 7:43am

What do you think about stunning visual controls like the WPF ones but without the .NET framework nor that sloooowww WPF rendering?

The codejock XAML is really FAST!!! and running until in the old Windows 95! (for VB6)

Note: The developers that use the NET platform but are not happy with the WPF can also use the Codejock Markup feature instead of WPF :)

This is another simple demonstration of what we can do with the MarkupLabel control.

I like nice controls. I think that visual is important in screens. Now with the WPF there are comming a lot of 3rd party controls that are beautiful, but slow because they use the WPF technology. But we can make some of them using the codejock markup technology.

This is the XamlGrid control, showing that we can interact with the MarkupLabel.

You can download it here:

uploads/20090703_073458_XamlGrid_demo.zip - 20090703_073458_XamlGrid_demo.zip

Limitations:
-The arrows keys (still) does not work with it (waiting the codejock team to solve this)
-Does not support horizontal scroll

This is for demonstrarion purposes only, to show some things we can make with the Markup Control. The control is not finalized. A lot of new properties are being implemented and I will post a new version soon, as well as new controls.

If YouHaveNewCodes Then
PostThemHere()
ElseIf RelatedTo(MarkupLabel) Then
GoTo http://forum.codejock.com/forum_posts.asp?TID=14646 - MarkupLabelFeatures
End if

-------------
Product: Xtreme SuitePro (ActiveX) version 15.2.1
Platform: Windows XP SP2
Language: Visual Basic 6 SP6

Replies:

Posted By: jpbro
Date Posted: 03 July 2009 at 3:15pm

Hey Krog, great demo! I especially like the fact that you got the edit window placement working.

I also have some good news - I had a thought that using the KeyBindings feature of the CommandBars control might work to get the Arrow keys working for the MarkupLabel control and it seems to work. Just add a CommandBars control (CommandBars1) to your UserControl and then add the following to the general section of the UserControl:


Private Const mc_KeyIndexOffset As Long = 1000

And then add this sub:


Private Sub CommandBars1_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
   Select Case Control.Id
   Case mc_KeyIndexOffset + vbKeyUp
      UserControl_KeyDown vbKeyUp, 0
   Case mc_KeyIndexOffset + vbKeyLeft
      UserControl_KeyDown vbKeyLeft, 0
   Case mc_KeyIndexOffset + vbKeyRight
      UserControl_KeyDown vbKeyRight, 0
   Case mc_KeyIndexOffset + vbKeyDown
      UserControl_KeyDown vbKeyDown, 0
   End Select
End Sub

And add the following to your UserControl_Initialize event:


   With UserControl.CommandBars1


      .KeyBindings.Add 0, vbKeyUp, mc_KeyIndexOffset + vbKeyUp


      .KeyBindings.Add 0, vbKeyLeft, mc_KeyIndexOffset + vbKeyLeft

      .KeyBindings.Add 0, vbKeyRight, mc_KeyIndexOffset + vbKeyRight


      .KeyBindings.Add 0, vbKeyDown, mc_KeyIndexOffset + vbKeyDown


   End With

Great work, and thanks again!

-------------
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Posted By: jpbro
Date Posted: 03 July 2009 at 3:29pm

I just found a problem though - You can't use the arrow keys in the edit window with my code...I'll look for a fix.

-------------
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Posted By: jpbro
Date Posted: 03 July 2009 at 3:36pm

Okay, I found a fix. I had to add enough to the code that I thought I'd post the complete package:

uploads/20090703_153547_XamlGrid.zip - uploads/20090703_153547_XamlGrid.zip

Basically, I add all the KeyBindings at startup or when the edit window loses focus, and delete the arrow keybindings in the StartEdit sub.

-------------
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Posted By: Krog
Date Posted: 03 July 2009 at 4:47pm

Hi Jason!

Thanks!

Well, I got another simple way to do it without to use the CommandBars, and with less code.

The solution is to add a TextBox in the usercontrol that is out of the visible area but the Visible property is set to True, change the TabStop to False, and use the following line:

Private Sub MarkupLabel1_GotFocus()

  txtFocus.SetFocus

End Sub

Indeed I did not post this solution before because I was intending to show to the codejock team that the MarkupLabel really does not support the Key* events and also "eat" the arrows key events if it has the focus.

I will post another sample with it and another things that I am finalizing.

-------------
Product: Xtreme SuitePro (ActiveX) version 15.2.1
Platform: Windows XP SP2
Language: Visual Basic 6 SP6

Posted By: Krog
Date Posted: 04 July 2009 at 6:29am

Here is the version that supports the arrows keys:

uploads/20090707_190036_XamlGrid.zip - 20090707_190036_XamlGrid.zip

Now the control can be resized. I am working on the columns addition and new properties and adding events to make it usable.

The new version may be available soon.

-------------
Product: Xtreme SuitePro (ActiveX) version 15.2.1
Platform: Windows XP SP2
Language: Visual Basic 6 SP6

Posted By: jpbro
Date Posted: 07 July 2009 at 6:13pm

Hi Krog,

Great work on this demo, thanks again

. A couple of things:

    1) There is a reference to WinSubHook 2 Interface 1.03 in the project that is missing (prevents running the demo until you clear it). It may confuse some who are trying it out, so it would be best if you cleared it since it does not seem to be required.
    2) When scrolling the grid with the edit window visible, the window doesn't scroll/disappear. I'm sure you are aware of this (and this is probably why you requested the Scroll event for the ScrollViewer), but I just thought I'd mention it in case you weren't aware. I don't have a good solution for it yet myself.
    3) Maybe you could also include a compiled EXE with your future ZIPs? It's just quicker to try out the new features of your releases that way (double-click from Zip app instead of extract/run VB6)
    4) I agree that both of our key handling methods are hacky, and that CJ implemented key events would be greatly preferable.

-------------
Product: Xtreme SuitePro (ActiveX) version 16.2.6
Platform: Windows XP - SP3

Language: Visual Basic 6.0 SP6

Posted By: Krog
Date Posted: 07 July 2009 at 7:17pm

Hi Jason!

1) I removed the unused reference from the project. Thanks!

2) Sincerely, I did not test the scrolling while the edit is visible. Thanks to tell me.

One way to solve this would to be using a Timer while the edit is visible and checking if the ScrollViewer.VerticalOffset changed, and then to hide the edit.

Another simpler way would to be if there is a Click or MouseDown event only on the ScrollBar of the ScrollViewer, but I did not find one.

Well, I will put some solution on the next release.

The Scroll event was intended to be used to move elements that are not in the ScrollViewer area, i.e. to use it as a ScrollBar. This is one solution to put horizontal scrollbars on the grid. And simply to be informed when the content is scrolled.

3) I do not include an EXE in the zips because of virus spreading. Personally I do not open the exes that are in the zips, I only open the source.

-------------
Product: Xtreme SuitePro (ActiveX) version 15.2.1
Platform: Windows XP SP2
Language: Visual Basic 6 SP6

Posted By: Krog
Date Posted: 09 July 2009 at 10:01pm

This is the XamlGrid version 0.1 beta

uploads/20090709_215905_XamlGrid_v0.1be.zip - 20090709_215905_XamlGrid_v0.1be.zip

It is for test purpose only, because it has still some bugs and not all features were tested. If you find some bug, please tell me.

One bug is known: Try to remove all the columns and then try to resize the form. It occurs inside the codejock code, because there is no ColumnDefinitions on the grid (I think). I will solve it not removing all the ColumnDefinitions, but it is not done in this version so the codejock team can test the code.

In the next version we will be able to change colors (including the use of transparency), shapes, margins and fonts. Using markup ;)

-------------
Product: Xtreme SuitePro (ActiveX) version 15.2.1
Platform: Windows XP SP2
Language: Visual Basic 6 SP6