Visual Basic .NET Forums

Question This tab focus shouldn't be possible

katz — Sun, 26 May 2013 23:30:19 GMT

When I was setting the tab indices for the items on my form, I noticed that I have some radio buttons that do this:

ss1.png

For added complication, some of the radio buttons on the form behave this way, while others follow the normal tab focus rules.

I have been assured that this is 100% impossible, that tab doesn't ever move between individual controls inside a container, and that you can never give focus to an unchecked radio button. But apparently you can and I'd very much like to find out why and how I can emulate or remove this behavior. Anyone up to it?

I'm using Visual Studio 2012.

Attached Images

ss1.png (2.9 KB)

Question VS Error:The project file could not be loaded.Root element is missing.

CroNiXer — Sun, 26 May 2013 18:13:14 GMT

Tittle says it all so how do I fix it? :confused:

Here I also have picture of error.

MVS error.png

EDIT: I fogot to mention that it is happening only for C++ projects.

Attached Images

MVS error.png (22.9 KB)

Resolved Masked amount(currency) textbox

Socarsky — Sun, 26 May 2013 03:48:52 GMT

How can I do masked amount textbox like below, you can watch that a very short video for my aim.:confused:

https://www.youtube.com/watch?v=iRm1Buny7Qc

Anyone can help me using JSON Parse?

kiko2max — Sat, 25 May 2013 02:20:56 GMT

I'm making a system that getting a JSON response using url stream. to get the response I parse it, now i need to get the name and value inside it...

the JSON response looks like this:

{
"status": true,
"data": {
"2": "Affidavit of Acknowledgement",
"3": "Affidavit of Assurance",
"45": "Affidavit of Assurance for Ex-KSA",
"46": "Affidavit of Assurance for Fingerprints",
"55": "Affidavit of Declaration and Consent",
"48": "Affidavit of Undertaking for MODA",
"47": "Affidavit of Undertaking for Visa Usage",
"1": "Airline Ticket"
}
}

then my codes is like this...

Dim rawresp As String
rawresp = reader.ReadToEnd()
Dim data As New ArrayList

Dim jResults As JObject = JObject.Parse(rawresp)

For Each PT As JProperty In jResults.Properties()

data.Add(PT.Name)

Next

For i = 0 To data.Count - 1
DocuType.Items.Add(data(i))
Next

which have an output of in the listbox:

status
data

now i also want to get the collection inside the "data", how can i get the value there?... can you help me?

Question Really strange tabcontrol behavior

katz — Fri, 24 May 2013 22:48:18 GMT

There's some very strange stuff going on here that I can't even start to work out. Bear with me, as this is rather long.

I need to be able to toggle fields between being disabled and being invisible, and I've got a little subroutine that does it recursively for each control and its children:

Code:

    Public Sub ConcealObject(ByVal Parent As Control)

            For Each C As Control In Parent.Controls

            If C.Enabled = False OrElse C.Visible = False Then

                 Conceal(C) 'this just disables (and reveals) or hides (and enables) a control, depending on the setting

            ElseIf C.HasChildren Then

                ConcealObject(C) 'repeats the loop at the next level down (will keep repeating for as many levels as there are)

            End If

        Next C

    End Sub

So when that runs, it'll either turn all the disabled fields to invisible (but enabled) or turn all the invisible fields to diabled (but visible).

It works for most things, but tabcontrols completely mess it up:

1. The program starts out with some fields disabled; when I switch them to invisible, the fields on the tab page that has focus turn invisible, but the fields on the other pages stay disabled.

2a. Then, when I switch back to disabled (keeping focus on the same tab page), the tab page with focus still works correctly, but all the controls on the other pages are disabled, not just the ones that were previously invisible.

2b. But here's the really inexplicable (to me) part: If, instead of keeping focus on the same page when I switch back to disabled, I click on a different tab page (one of the pages where the disabled fields should have been hidden, but weren't) and then I switch back to disabled, then all the contents of that tab page disappear and are replaced by the contents of the first tab page. The page with index 0. All disabled.

3b. If I then click on a different tab (including the one with index 0), it will show the correct controls at least (but all disabled), and then if I switch back to the tab that was displaying the wrong controls, it goes back to normal (but still all disabled).

I am completely lost. Does anyone know how this little subroutine could be causing such weird problems?

How to Directly Print a Crystal Reports to Default Client Printer from ASP.NET withou

Neodynamic — Fri, 24 May 2013 17:27:03 GMT

How to Directly Print a Crystal Reports to Default Client Printer from ASP.NET without Preview or Printer Dialog

In this walkthrough, you'll learn how to directly print a Crystal Reports (RPT file) to the Default Client printer from an ASP.NET website without preview! In fact, you'll be able to print the RPT report to any installed printer at the client machine without displaying any Printer Dialog at all! And one important thing... it works with any browser on Windows OS like IE (6 or later), Chrome, Firefox, Opera & Safari!

Directly Print Crystal Reports to Default Client Printer from ASP.NET without Preview or Printer Dialog

The sample report is a Crystal Reports (RPT) designed to print a products list of the classic and famous MS Northwind Traders database. In a simple ASP.NET webpage, we provide all the needed code in C# and VB to print the rpt sample report file without previewing or displaying any printer dialog by using WebClientPrint for ASP.NET solution

By using WebClientPrint solution in your ASP.NET website, your users will be able to print the Crystal Reports RPT file to the Default client printer as well as to any other installed printer available at the client machine without displaying any print dialog.

Want to add client printing for IE, Firefox & Chrome to CrystalReportViewer? How to add Custom Printing options to ASP.NET Crystal Reports Viewer toolbar

Requirements
Development/Server-side
- WebClientPrint 2.0 for ASP.NET (or greater)
- ASP.NET 3.5 (or greater)
- Visual Studio 2010 / VWD 2010 (or greater)
- SAP Crystal Reports for Visual Studio 2010
- jQuery 1.4.1 (or greater)

Client-side
- WebClientPrint Processor 2.0 for Windows (WCPP) - Part of WebClientPrint Solution
- Adobe Reader

NOTE: In this guide we used VS 2010, ASP.NET 3.5 & SAP Crystal Reports for Visual Studio 2010 but the same code & concept can be applied to VS 2005/2008 and ASP.NET 2.0 as well as VS 2012 and ASP.NET 4.x with other Crystal Reports editions

Follow up these steps
- Download & install WebClientPrint for ASP.NET
- Open Visual Studio and create a new ASP.NET 3.5 Website naming it PrintCrystalReports
- Add a reference to Neodynamic.SDK.WebClientPrint.dll to your project
- Be sure that your website references CrystalDecisions.CrystalReports.Engine.dll and CrystalDecisions.Shared.dll
If they are missing, then please add both references to your project.
- Open your web.config file and add the following entries:

...

...

...

...

...

...

...

...

- Open the default.aspx page and paste the following markup. The task of this page is to try to detect the WCPP and ask the user to install it if it's missing.

<%-- WCPP-detection meta tag for IE10 --%>
<%= Neodynamic.SDK.Web.WebClientPrint.GetWcppDetection MetaTag() %>

Detecting WCPP utility at client side...

Please wait a few seconds...

<%-- Add Reference to jQuery at Google CDN --%>

<%-- Add Reference to spin.js (an animated spinner) --%>

<%-- WCPP detection script --%>
<%= Neodynamic.SDK.Web.WebClientPrint.CreateWcppDetect ionScript() %>

- The Crystal Reports (RPT) we've created for this sample is a simple product list for MS Northwind Traders database and it has an XML data source. The report looks like the following figure.

Sample Crystal Reports (RPT) featuring Northwind Traders products list

- Download and copy both MyProducts.rpt & NorthwindProducts.xml files to your website root folder
- Finally, add a new ASPX page and name it PrintCrystalReports.aspx (be sure to UNSELECT the "Place code in separate file" checkbox)

This page allows your user to print the RPT report file to their local printers. It basically converts/exports the RPT report to PDF format and then passes it to the WCPP utility to print it to the specified printer. Please note that the user is required to have Adobe Reader installed to get this code working.

Please paste the following markup and code depending on your preferred language i.e. C# or VB on your PrintCrystalReports.aspx file.

VB
<%@ Page Title="Directly Print Crystal Reports to default client printer without Preview or Print Dialog!" Language="VB" %>

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="Neodynamic.SDK.Web" %>
<%@ Import Namespace="CrystalDecisions.CrystalReports.Engine" %>
<%@ Import Namespace="CrystalDecisions.Shared" %>

<%-- Store User's SessionId --%>

<%-- Add Reference to jQuery at Google CDN --%>

<%-- Register the WebClientPrint script code --%>
<%=Neodynamic.SDK.Web.WebClientPrint.CreateScript() %>

C#
<%@ Page Title="Directly Print Crystal Reports to default client printer without Preview or Print Dialog!" Language="C#" %>

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="Neodynamic.SDK.Web" %>
<%@ Import Namespace="CrystalDecisions.CrystalReports.Engine" %>
<%@ Import Namespace="CrystalDecisions.Shared" %>

<%-- Store User's SessionId --%>

<%-- Add Reference to jQuery at Google CDN --%>

<%-- Register the WebClientPrint script code --%>
<%=Neodynamic.SDK.Web.WebClientPrint.CreateScript() %>

- That's it! Run your website and test it. You can print it to the Default client printer or you can get a list of the installed printers available at the client machine and select one for printing the report.

Links:
This Demos
Demos
Download WebClientPrint for ASP.NET
More Information about Neodynamic WebClientPrint for ASP.NET

Neodynamic
NET Components & Controls
Barcode, Labeling, Printing & Imaging components for .NET by Neodynamic

Question Control storyboard inside custom control...by code

Jayme65 — Fri, 24 May 2013 12:10:50 GMT

Hello,
How do I please control (start, stop, pause, go to specific time) a controltemplate storyboard inside a custom control..by code?

The XAML:

Code:


    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"

    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="d" x:Class="Window6"

    Title="MainWindow" Height="394" Width="324">

In these 3 attemps, the debugger complains about not being able to resolve 'rectangle':

Code:

Dim myStoryboard As New Storyboard

myStoryboard = Arrow.FindResource("Storyboard1")

myStoryboard.Begin()

Code:

Dim myStoryboard As New Storyboard

myStoryboard = CType(Me.Resources("Storyboard1"), Storyboard)

myStoryboard.Begin(Arrow)

Code:

Dim myStoryboard As Storyboard = TryCast(Arrow.Template.Resources("Storyboard1"), Storyboard)

If myStoryboard IsNot Nothing Then

  myStoryboard.Begin(Arrow)

End If

With this one, I can verify that neither the template is not found:

Code:

Dim ct As ControlTemplate = TryCast(Me.FindName("CTarrow"), ControlTemplate)

If ct IsNot Nothing Then

   Debug.Print("ControlTemplate found")

   Dim sb As Storyboard = TryCast(ct.Resources("Storyboard1"), Storyboard)

   If sb IsNot Nothing Then

     sb.Begin()

     Debug.Print("Storyboard found")

   End If

End If

Please help!! ;-)

Random Code bit for textbox values: no need to respond

weldos — Thu, 23 May 2013 12:20:23 GMT

PrivateSub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'clears each box back to zero so it does not stack.
onehun.Text = "0"
fifty.Text = "0"
twenty.Text = "0"
ten.Text = "0"
five.Text = "0"
two.Text = "0"
one.Text = "0"
pfive.Text = "0"
ptwenty.Text = "0"
pten.Text = "0"
pointfive.Text = "0"
'each of these if statements and loops are designed so that it checks if the'
'sum fits inside the ammount of money left to give if it fits it minuses the note from the sum and adds one to how many notes you need.'
Do
If TextBox2.Text / 100 >= 1 Then
onehun.Text = Val(onehun.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 100
EndIf
LoopUntil TextBox2.Text / 100 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 50 >= 1 Then
fifty.Text = Val(fifty.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 50
EndIf
LoopUntil TextBox2.Text / 50 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 20 >= 1 Then
twenty.Text = Val(twenty.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 20
EndIf
LoopUntil TextBox2.Text / 20 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 10 >= 1 Then
ten.Text = Val(ten.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 10
EndIf
LoopUntil TextBox2.Text / 10 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 5 >= 1 Then
five.Text = Val(five.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 5
EndIf
LoopUntil TextBox2.Text / 5 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 2 >= 1 Then
two.Text = Val(two.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 2
EndIf
LoopUntil TextBox2.Text / 2 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 1 >= 1 Then
one.Text = Val(one.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 1
EndIf
LoopUntil TextBox2.Text / 1 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 0.5 >= 1 Then
pfive.Text = Val(pfive.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 0.5
EndIf
LoopUntil TextBox2.Text / 0.5 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 0.2 >= 1 Then
ptwenty.Text = Val(ptwenty.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 0.2
EndIf
LoopUntil TextBox2.Text / 0.2 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 0.1 >= 1 Then
pten.Text = Val(pten.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 0.1
EndIf
LoopUntil TextBox2.Text / 0.1 < 1 Or
TextBox2.Text = "0"
Do
If TextBox2.Text / 0.05 >= 1 Then
pointfive.Text = Val(pointfive.Text) + 1
TextBox2.Text = Val(TextBox2.Text) - 0.05
EndIf
LoopUntil TextBox2.Text / 0.05 < 1 Or
TextBox2.Text = "0"
　
EndSub

change code.jpg

Attached Images

change code.jpg (20.0 KB)

How to create a loop for: adding x number to a textbox, after every y number.

weldos — Thu, 23 May 2013 07:35:37 GMT

so pretty much what im looking to do is by using a loop of some sort ( my vb skills isnt that great, so im not entirely familiar with loops) to add 1 to a Textbox (in this case happens to be txtbCat1Items.text) for every 4 in the same text box.

question for reference/better understanding of what im trying to do: "For every 4 Category 1 items ordered, the 5th one is free" - so for every 4 items in category 1, add 1 to the items to make it 5, and i need to do this in some sort of loop form.
|

thankyou

writing platform independent s/w

Micro — Thu, 23 May 2013 05:41:57 GMT

Hi,
i am beginer to vb.net coding.i have wrote a s/w in vb6 and want to upgrade in vb.net using vs2008 and also platform independent.In the vb project I have used API calls to draw line,circle,arc on a picture box.I have wrote my main logic functions in modules and class modules and used global variables.Is it required to write main logic code in dlls? I want all functions with getting parameters and returning parameters.And how can I manage the API calls?
I am little confused about platform independent code and its requirements!
can anybody help me on this topic?

combine ReadOnlyCollection(of String)

Zexor — Thu, 23 May 2013 03:11:23 GMT

can you combine 2 readonlycollection(of string) ? I tried Directcast(a.union(b),objectmodel.readonlycollecti on(of string)) but that give me error on casting. Do i need to conect it to an array first?

Question Question about unbound DataGridView

XiaoHong — Thu, 23 May 2013 03:06:25 GMT

Dear All,

I'm very new in VB.NET.
I'm now facing a problem on developing unbound datagridview.
My datagridview consist of 2 column - Column A and column B.

MY problem is when user key in new record on column A and pressed "Tab" or "Enter" button, then i would like the program to check for duplicate column A value. if column A value existed, then i want the program to prompt message to inform user the new value of column A already exist , and then the cursor must focus on column A. How can i do that?

And when user key in new record on column A, if column A value not exist, then i want the cursor to focus on column B instead of next record of column A. How can i do that?

Can anyone help me on it?

Thank you very much!

Resolved Using numerical values instead of enums

SnakeRider — Wed, 22 May 2013 20:51:42 GMT

Hi all,

I have come across a minor glitch in my plans to store FontStyle values in the database. My plan was to store the values as base-2 numbers in the database, eg.

regular = 0
bold = 1
Italics = 2
strikethrough = 4

etc etc....

So when I want a bold+italics font, I store the number 3 (this is how the enums work as it is but bold + italics looks like: FontStyle.Bold Or FontStyle.Italics)

My problem is, I can not figure out how to cast these numbers back to the enum so that New Font() will accept them.

Has anyone got any hints or suggestions on this issue?

I appreciate your help :)

Cheers!

pdf file can not be found

mangian — Wed, 22 May 2013 19:33:17 GMT

I have a program call the pdf file is not saved in the database. while in another run in computer pdf file can not be found due to different local disk dictionary. pardon my language a lot wrong. thank you.

Such coding

Quote:

Sub PersegiPanjang()
Dim FileName As String = "D:\KamusMatematika\PDF\Bangun Datar\Definisi Persegi Panjnag.pdf"
WebBrowser1.Navigate(FileName)
End Sub

Code Help

basacwards — Wed, 22 May 2013 17:18:29 GMT

Hey guys im trying to code a "seemingly easy program" which turns out not to be easy in my understandings. What im tring to do is have 3 Main Buttons (Function/Up/Down) and an image that constantly changes. When the function button is pressed the image will change from XXX to RUN. Once RUN is displayed the middle and right button will then toggle between the other "images" (settings .. like HI LOW MED) ... however your not suppose to be able to toggle the other images UNLESS run was first displayed. .. Please help! I attached a brief image of the controller

Attached Images

Untitled.jpg (34.3 KB)

Visual Basic .NET Forums

Question This tab focus shouldn't be possible

Question VS Error:The project file could not be loaded.Root element is missing.

Resolved Masked amount(currency) textbox

Anyone can help me using JSON Parse?

Question Really strange tabcontrol behavior

How to Directly Print a Crystal Reports to Default Client Printer from ASP.NET withou

#1 Install WebClientPrint Processor (WCPP)!

#2 After installing WCPP...

Directly Print Crystal Reports without Preview or Print Dialog!

Print Report

About WebClientPrint

Print the Crystal Reports (RPT) sample.

Directly Print Crystal Reports without Preview or Print Dialog!

Print Report

About WebClientPrint

Print the Crystal Reports (RPT) sample.

Question Control storyboard inside custom control...by code

Random Code bit for textbox values: no need to respond

How to create a loop for: adding x number to a textbox, after every y number.

writing platform independent s/w

combine ReadOnlyCollection(of String)

Question Question about unbound DataGridView

Resolved Using numerical values instead of enums

pdf file can not be found

Code Help