CR8.5 and VB6 - I dont want it to create the form!

Every time I add a new Crystal Report to my VB6 project it used to ask if I wanted to add a form with the viewer control on it automatically (it also asked something else, but I can't remember what). I got sick of hitting "No" then "OK" so I checked the "don't ask me this question again" style box.

Now, every time I add a report it also adds a form to my project with the viewer control. I don't want it to do this, as it's annoying removing the useless form and it is screwing with my source control. And it does it even though when i checked the "don't ask me... " i told it not to create the form.

So I've checked all the settings I can find and I can't find anything to stop it happening. Does anyone have a quick fix to this before I go trawling through the registry to find a solution?update - i trawled the registry, found some likely candidates, but none of them worked. It's real frustrating, so any help will be appreciated, but I can live with it (I've lived with worse)

CR10 web viewer width 100%

Hello,
I'm trying to set my CrystalReportViewer to 100% of page width in ASP.NET. When I set the Width property on the control in the ASPX page itself, the viewer renders itself correctly when the page first loads, but on each postback the "%" is changed to "px" causing the viewer to be only 100 pixels wide.

I can apparently get around that by setting the width to Unit.Percentage(100) on every Page_Load event. Then the viewer appears as I expect with 100% width everytime I navigate pages, search, or export.

My problem is this workaround doesn't seem to work for the group tree. When I toggle the group tree, the two divs that get rendered are of width 14px and 86px (which add up to 100px).

Any ideas how I can get around this bug?

Thanks,
JamesI have a lousy solution but it seems to work (this is C# code but same should apply to VB):
public class MyCrystalReportViewer : CrystalDecisions.Web.CrystalReportViewer
{
protected override void Render(HtmlTextWriter output)
{
string renderedControl = string.Empty;

// Render the control to a string builder
StringBuilder sb = new StringBuilder();
StringWriter sw = new StringWriter(sb);
HtmlTextWriter htw = new HtmlTextWriter(sw);
base.Render(htw);

// Extract the string for processing
renderedControl = sb.ToString();

// Replace certain strings in the group tree div style tag
// Be sure to check for all indices along the way and just do nothing if things aren't found.
int groupTreeIndex = renderedControl.IndexOf("<div class=\"crgrptr\"");
if ( groupTreeIndex != -1 )
{
int groupTreeStyle = renderedControl.IndexOf("style=\"",groupTreeIndex);
if ( groupTreeStyle != -1 )
{
int groupTreeStyleEnd = renderedControl.IndexOf("\"",groupTreeStyle+7);
if ( groupTreeStyleEnd != -1 )
{
string groupTreeStyleTag = renderedControl.Substring(groupTreeStyle+7,groupTreeStyleEnd-groupTreeStyle-7);
renderedControl = renderedControl.Substring(0,groupTreeStyle+7)
+ "display:inline;" + groupTreeStyleTag.Replace("width:14px","width:14%").Replace("position:absolute","position:static")
+ renderedControl.Substring(groupTreeStyleEnd);
}
}
}

// Replace certain strings in the page div style tag
// Be sure to check for all indices along the way and just do nothing if things aren't found.
int pageIndex = renderedControl.IndexOf("<div class=\"crystalstyle\"");
if ( pageIndex != -1 )
{
int pageStyle = renderedControl.IndexOf("style=\"",pageIndex);
if ( pageStyle != -1 )
{
int pageStyleEnd = renderedControl.IndexOf("\"",pageStyle+7);
if ( pageStyleEnd != -1 )
{
string pageStyleTag = renderedControl.Substring(pageStyle+7,pageStyleEnd-pageStyle-7);
renderedControl = renderedControl.Substring(0,pageStyle+7)
+ "display:inline;" + pageStyleTag.Replace("width:86px","width:86%").Replace("position:absolute","position:static")
+ renderedControl.Substring(pageStyleEnd);
}
}
}

// Now output the reformatted HTML of the control
output.Write(renderedControl);
}
}

CR viewer:: "Physical database not found"

Hi all,
I had a problem with CR viewer control, help me please!
When i try to open report from my VB project the warning "Physical database not found" display and all things really stop. How can i fix this problem.
Thanks.Crystal reports Version?
Database?
Connection via native or ODBC?
Are you running the VB on the same PC you developed the reports, or a different PC?
Which layer are you using in your VB app - CRPE, CRAXDRT, etc??

Need to know all this before can narrow down the cause of your problem, as Crystal has very coarse error handling and doesn't give very specific error messages.

Dave|||Hi, Goto Database->Verify Database. Now map your database with the report and save it

Madhivanan

Cr querys/perimiters?

Can I get CRXI to use critiera entered into a form?
I mean for a paramiter query, it takes the input from a control and produces the report from that?
I have never used crystal reports and am finding the docs hard to understand!
CheersYes, we're doing it. Of course that's a generic answer but then you asked a generic question.

What version of VB? What type of app? I assume that, like us, you're creating the report in CRXI & trying to run it from the app. If you're actually creating it in the app then you're probably using the built-in version of CR & not CRXI.

We're having problems with a number of our reports but overall we've been successful in running them with parameters supplied by a VB app. We use the ReportDocument object model since we don't want to view the report in the app (for that we'd use the CrystalViewer object model) nor do we have an RAS (for that we'd use the ReportClientDocument object model).

Basically there's not a lot I can do to help you, except to assure you that yes, it is possible to get CRXI to use criteria entered into a form.

Good luck.|||Cheers, yea I have been using the CRXI report creation software to make the report! I assume I need to bind a field to a control in the vb app?

I am using VB6 and the CRAXRV11 ocx plugin to view the report on a VB form!

The other option i was thinking was creating a new table with vb and run the report from that tables information.

CPU %usage restriction for a process

Is there a way to restrict a certain process from using 100% of the CPU time.

Is it possible to control how much % CPU time a process can use?

For e.g. there is a process that generates OLAP Cubes and is using 100% of the CPU time. This just completely stops me from doing anything else on the server or the database. I would like to allocate a designated percentage of CPU time to this process (or all processes), or even make it run in the background as a lower priority process, so it is possible to work on the database. Is it possible to achieve this?You could try finding the process in the Windows Task Manager on the Server.

Once you have located the process right click on it and set the priority to BelowNormal or Low. I've never tried this but it sounds reasonable.

Also, if you have a multi-processor system you could change the Servers properties in EM by telling the system to use only a specified number of processors as opposed to all of them which is the default.

As with anything plan for the worst - create backups and test it first before trying it on the live server.|||Thanks for your reply.

Windows task manager does not show me the processes running inside the database. It shows only one SQL server process running. Now only if Enterprise Manager will let me do that......

I like your idea about the processors. But the change would be a global change for all the processes. Is there a way to do it only for a particular process? i.e. the rest of the processes can use all the CPU while a chosed process can use only one CPU?|||Enterprise Manager is a snap-in to the Microsoft Management Console and you should be able to find it in task manager as mmc.exe. Just be aware that other snap-ins may be running as well as the one for EM. To be sure you might want to close any other instances of mmc so you can select the correct one.

Your right about the processor change - it's global. I am not aware that you can set a particular process to use just a single CPU but hey who knows. Anyone out there have an answer?

Wish I had a better solution.

Best Regards|||Resource management for a processes is deal on MS SQL Server engine. ... and Windows also. You can't change priority for one process only.

CountrySelector control

Hello all

I am developing a CountrySelector control (which I would like to share
with anyone), but I am quite a newby in this custom control area.

You can find it at:
http://home.kabelfoon.nl/~juliusd/v...ntrySelector.vb

Some questions I have are:
- In what event should the items be added. In this case (PreRender)
items added on every render (duh) and get duplicated when ViewState is
enabled. Best would be if the items show up in the designer already
but only in designmode and not with <ListItem> in the HTML source.
- How can I override ViewState get/set methods to only save the
current selection and not the whole collection? It will also need to
save whether it is the first render (for the use of the DefaultCountry
property)
- What behaviour to expect when an invalid countrycode is selected by
consuming (.net) code (e.g. in the DefaultCountry property)?
- Is it possible to use System.Globalization to populate the
collection with country(code)'s?

Thank you in advance.

Hope to hear from you

Freek Versteijn

Here is the concept code:

Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls

<ToolboxData("<{0}:CountrySelector
runat=server></{0}:CountrySelector>")> Public Class CountrySelector
Inherits System.Web.UI.WebControls.DropDownList
Protected _DefaultCountry As String

<Description("The initial country's code")> _
Public Property DefaultCountry() As String
Get
Return _DefaultCountry
End Get
Set(ByVal Value As String)
_DefaultCountry = ("" & Value).ToUpper()
End Set
End Property

'TODO:
' [ ] Move adding of items to other method?
' [ ] Show DefaultCountry at first render
' [ ] ViewState to only save the selected item
' [ ] Use System.Globalization (RegionInfo.DisplayName or
..EnglishName depending on CurrentCulture) for populating the Items
collection if possible

Protected Overrides Sub OnPreRender(ByVal e As EventArgs)
Items.Add(New ListItem("Albania", "AL"))
Items.Add(New ListItem("Algeria", "DZ"))
Items.Add(New ListItem("American Samoa", "AS"))
Items.Add(New ListItem("Andorra", "AD"))
Items.Add(New ListItem("Angola", "AO"))
Items.Add(New ListItem("Anguilla", "AI"))
Items.Add(New ListItem("Antarctica", "AQ"))
Items.Add(New ListItem("Antigua/Barbuda", "AG"))
Items.Add(New ListItem("Argentina", "AR"))
Items.Add(New ListItem("Armenia", "AM"))
Items.Add(New ListItem("Aruba", "AW"))
Items.Add(New ListItem("Australia", "AU"))
Items.Add(New ListItem("Austria", "AT"))
Items.Add(New ListItem("Azerbaijan", "AZ"))
Items.Add(New ListItem("Bahamas", "BS"))
Items.Add(New ListItem("Bahrain", "BH"))
Items.Add(New ListItem("Bangladesh", "BD"))
Items.Add(New ListItem("Barbados", "BB"))
Items.Add(New ListItem("Belarus", "BY"))
Items.Add(New ListItem("Belgium", "BE"))
Items.Add(New ListItem("Belize", "BZ"))
Items.Add(New ListItem("Benin", "BJ"))
Items.Add(New ListItem("Bermuda", "BM"))
Items.Add(New ListItem("Bhutan", "BT"))
Items.Add(New ListItem("Bolivia", "BO"))
Items.Add(New ListItem("Bosnia", "BA"))
Items.Add(New ListItem("Botswana", "BW"))
Items.Add(New ListItem("Bouvet Island", "BV"))
Items.Add(New ListItem("Brazil", "BR"))
Items.Add(New ListItem("British Indian Ocean Territory",
"IO"))
Items.Add(New ListItem("British West Indies", "WI"))
Items.Add(New ListItem("Brunei Darussalam", "BN"))
Items.Add(New ListItem("Bulgaria", "BG"))
Items.Add(New ListItem("Burkina Faso", "BF"))
Items.Add(New ListItem("Burma", "BU"))
Items.Add(New ListItem("Burundi", "BI"))
Items.Add(New ListItem("Cambodia", "KH"))
Items.Add(New ListItem("Cameroon", "CM"))
Items.Add(New ListItem("Canada", "CA"))
Items.Add(New ListItem("Cape Verde", "CV"))
Items.Add(New ListItem("Cayman Islands", "KY"))
Items.Add(New ListItem("Central Africa", "CF"))
Items.Add(New ListItem("Chad", "TD"))
Items.Add(New ListItem("Chile", "CL"))
Items.Add(New ListItem("China", "CN"))
Items.Add(New ListItem("Christmas Island", "CX"))
Items.Add(New ListItem("Cocos (Keeling) Islands", "CC"))
Items.Add(New ListItem("Colombia", "CO"))
Items.Add(New ListItem("Comoros", "KM"))
Items.Add(New ListItem("Congo", "CG"))
Items.Add(New ListItem("Cook Islands", "CK"))
Items.Add(New ListItem("Costa Rica", "CR"))
Items.Add(New ListItem("Cote D'Ivoire", "CI"))
Items.Add(New ListItem("Croatia", "HR"))
Items.Add(New ListItem("Cuba", "CU"))
Items.Add(New ListItem("Cyprus", "CY"))
Items.Add(New ListItem("Czech Republic", "CZ"))
Items.Add(New ListItem("Denmark", "DK"))
Items.Add(New ListItem("Djibouti", "DJ"))
Items.Add(New ListItem("Dominica", "DM"))
Items.Add(New ListItem("Dominican Republic", "DO"))
Items.Add(New ListItem("East Timor", "TP"))
Items.Add(New ListItem("Ecuador", "EC"))
Items.Add(New ListItem("Egypt", "EG"))
Items.Add(New ListItem("El Salvador", "SV"))
Items.Add(New ListItem("Equatorial Guinea", "GQ"))
Items.Add(New ListItem("Eritrea", "ER"))
Items.Add(New ListItem("Estonia", "EE"))
Items.Add(New ListItem("Ethiopia", "ET"))
Items.Add(New ListItem("Faeroe Islands", "FO"))
Items.Add(New ListItem("Falkland Islands", "FK"))
Items.Add(New ListItem("Fiji", "FJ"))
Items.Add(New ListItem("Finland", "FI"))
Items.Add(New ListItem("France", "FR"))
Items.Add(New ListItem("French Polynesia", "PF"))
Items.Add(New ListItem("French Southern Territories", "TF"))
Items.Add(New ListItem("Gabon", "GA"))
Items.Add(New ListItem("Gambia", "GM"))
Items.Add(New ListItem("Gaza", "XA"))
Items.Add(New ListItem("Georgia", "GE"))
Items.Add(New ListItem("Germany", "DE"))
Items.Add(New ListItem("Ghana", "GH"))
Items.Add(New ListItem("Gibraltar", "GI"))
Items.Add(New ListItem("Greece", "GR"))
Items.Add(New ListItem("Greenland", "GL"))
Items.Add(New ListItem("Grenada", "GD"))
Items.Add(New ListItem("Guadeloupe", "GP"))
Items.Add(New ListItem("Guam", "GU"))
Items.Add(New ListItem("Guatemala", "GT"))
Items.Add(New ListItem("Guiana", "GF"))
Items.Add(New ListItem("Guinea", "GN"))
Items.Add(New ListItem("Guinea-Bissau", "GW"))
Items.Add(New ListItem("Guyana", "GY"))
Items.Add(New ListItem("Haiti", "HT"))
Items.Add(New ListItem("Heard And Mcdonald Islands", "HM"))
Items.Add(New ListItem("Held Territories", "XH"))
Items.Add(New ListItem("Honduras", "HN"))
Items.Add(New ListItem("Hong Kong", "HK"))
Items.Add(New ListItem("Hungary", "HU"))
Items.Add(New ListItem("Iceland", "IS"))
Items.Add(New ListItem("India", "IN"))
Items.Add(New ListItem("Indian Ocean Islands", "XI"))
Items.Add(New ListItem("Indonesia", "ID"))
Items.Add(New ListItem("Iran", "IN"))
Items.Add(New ListItem("Iraq", "IQ"))
Items.Add(New ListItem("Ireland", "IE"))
Items.Add(New ListItem("Israel", "IL"))
Items.Add(New ListItem("Italy", "IT"))
Items.Add(New ListItem("Jamaica", "JM"))
Items.Add(New ListItem("Japan", "JP"))
Items.Add(New ListItem("Jordan", "JO"))
Items.Add(New ListItem("Kazakhstan", "KZ"))
Items.Add(New ListItem("Kenya", "KE"))
Items.Add(New ListItem("Kiribati", "KI"))
Items.Add(New ListItem("Korea", "KR"))
Items.Add(New ListItem("Kuwait", "KW"))
Items.Add(New ListItem("Kyrgyzstan", "KG"))
Items.Add(New ListItem("Laos", "LA"))
Items.Add(New ListItem("Latvia", "LV"))
Items.Add(New ListItem("Lebanon", "LB"))
Items.Add(New ListItem("Lesotho", "LS"))
Items.Add(New ListItem("Liberia", "LR"))
Items.Add(New ListItem("Libya", "LY"))
Items.Add(New ListItem("Liechtenstein", "LI"))
Items.Add(New ListItem("Lithuania", "LT"))
Items.Add(New ListItem("Luxembourg", "LU"))
Items.Add(New ListItem("Macau", "MO"))
Items.Add(New ListItem("Macedonia", "MK"))
Items.Add(New ListItem("Madagascar", "MG"))
Items.Add(New ListItem("Malawi", "MW"))
Items.Add(New ListItem("Malaysia", "MY"))
Items.Add(New ListItem("Maldives", "MV"))
Items.Add(New ListItem("Mali", "ML"))
Items.Add(New ListItem("Malta", "MT"))
Items.Add(New ListItem("Marshall Islands", "MH"))
Items.Add(New ListItem("Martinique", "MQ"))
Items.Add(New ListItem("Mauritania", "MR"))
Items.Add(New ListItem("Mauritius", "MU"))
Items.Add(New ListItem("Mayotte", "YT"))
Items.Add(New ListItem("Mexico", "MX"))
Items.Add(New ListItem("Micronesia", "FM"))
Items.Add(New ListItem("Moldova", "MD"))
Items.Add(New ListItem("Monaco", "MC"))
Items.Add(New ListItem("Mongolia", "MN"))
Items.Add(New ListItem("Montserrat", "MS"))
Items.Add(New ListItem("Morocco", "MA"))
Items.Add(New ListItem("Mozambique", "MZ"))
Items.Add(New ListItem("Myanmar", "MM"))
Items.Add(New ListItem("Namibia", "NA"))
Items.Add(New ListItem("Nauru", "NR"))
Items.Add(New ListItem("Nepal", "NP"))
Items.Add(New ListItem("Netherlands", "NL"))
Items.Add(New ListItem("Netherlands Antilles", "AN"))
Items.Add(New ListItem("New Caledonia", "NC"))
Items.Add(New ListItem("New Zealand", "NZ"))
Items.Add(New ListItem("Nicaragua", "NI"))
Items.Add(New ListItem("Niger", "NE"))
Items.Add(New ListItem("Nigeria", "NG"))
Items.Add(New ListItem("Niue", "NU"))
Items.Add(New ListItem("Norfolk Island", "NF"))
Items.Add(New ListItem("North Korea", "KP"))
Items.Add(New ListItem("Northern Ireland", "XB"))
Items.Add(New ListItem("Northern Mariana Islands", "MP"))
Items.Add(New ListItem("Norway", "NO"))
Items.Add(New ListItem("Oman", "OM"))
Items.Add(New ListItem("Pakistan", "PK"))
Items.Add(New ListItem("Palau", "PW"))
Items.Add(New ListItem("Panama", "PA"))
Items.Add(New ListItem("Papua New Guinea", "PG"))
Items.Add(New ListItem("Paraguay", "PY"))
Items.Add(New ListItem("Peru", "PE"))
Items.Add(New ListItem("Philippines", "PH"))
Items.Add(New ListItem("Pitcairn", "PN"))
Items.Add(New ListItem("Poland", "PL"))
Items.Add(New ListItem("Portugal", "PT"))
Items.Add(New ListItem("Puerto Rico", "PR"))
Items.Add(New ListItem("Qatar", "QA"))
Items.Add(New ListItem("Reunion", "RE"))
Items.Add(New ListItem("Romania", "RO"))
Items.Add(New ListItem("Russia", "RU"))
Items.Add(New ListItem("Rwanda", "RW"))
Items.Add(New ListItem("Saint Lucia", "LC"))
Items.Add(New ListItem("San Marino", "SM"))
Items.Add(New ListItem("Sao Tome And Principe", "ST"))
Items.Add(New ListItem("Saudi Arabia", "SA"))
Items.Add(New ListItem("Scotland", "WY"))
Items.Add(New ListItem("Senegal", "SN"))
Items.Add(New ListItem("Seychelles", "SC"))
Items.Add(New ListItem("Sierra Leone", "SL"))
Items.Add(New ListItem("Singapore", "SG"))
Items.Add(New ListItem("Slovak Republic", "SK"))
Items.Add(New ListItem("Slovenia", "SI"))
Items.Add(New ListItem("Solomon Islands", "SB"))
Items.Add(New ListItem("Somalia", "SO"))
Items.Add(New ListItem("South Africa", "ZA"))
Items.Add(New ListItem("South Georgia", "GS"))
Items.Add(New ListItem("Spain", "ES"))
Items.Add(New ListItem("Sri Lanka", "LK"))
Items.Add(New ListItem("St. Helena", "SH"))
Items.Add(New ListItem("St. Kitts & Nevis", "KN"))
Items.Add(New ListItem("St. Pierre", "PM"))
Items.Add(New ListItem("St. Vincent & The Grenadines", "VC"))
Items.Add(New ListItem("Sudan", "SD"))
Items.Add(New ListItem("Suriname", "SR"))
Items.Add(New ListItem("Svalbard And Jan Mayen Islands",
"SJ"))
Items.Add(New ListItem("Swaziland", "SZ"))
Items.Add(New ListItem("Sweden", "SE"))
Items.Add(New ListItem("Switzerland", "CH"))
Items.Add(New ListItem("Syria", "SY"))
Items.Add(New ListItem("Taiwan", "TW"))
Items.Add(New ListItem("Tajikistan", "TJ"))
Items.Add(New ListItem("Tanzania", "TZ"))
Items.Add(New ListItem("Thailand", "TH"))
Items.Add(New ListItem("Togo", "TG"))
Items.Add(New ListItem("Tokelau", "TK"))
Items.Add(New ListItem("Tonga", "TO"))
Items.Add(New ListItem("Trinidad And Tobago", "TT"))
Items.Add(New ListItem("Tunisia", "TN"))
Items.Add(New ListItem("Turkey", "TR"))
Items.Add(New ListItem("Turkmenistan", "TM"))
Items.Add(New ListItem("Turks And Caicos Islands", "TC"))
Items.Add(New ListItem("Tuvalu", "TV"))
Items.Add(New ListItem("U.S. Minor Outlying Islands", "UM"))
Items.Add(New ListItem("U.S.A.", "US"))
Items.Add(New ListItem("Uganda", "UG"))
Items.Add(New ListItem("Ukraine", "UA"))
Items.Add(New ListItem("United Arab Emirates", "AE"))
Items.Add(New ListItem("United Kingdom", "GB"))
Items.Add(New ListItem("Uruguay", "UY"))
Items.Add(New ListItem("Uzbekistan", "UZ"))
Items.Add(New ListItem("Vanuatu", "VU"))
Items.Add(New ListItem("Vatican City State", "VA"))
Items.Add(New ListItem("Venezuela", "VE"))
Items.Add(New ListItem("Viet Nam", "VN"))
Items.Add(New ListItem("Virgin Islands (British)", "VG"))
Items.Add(New ListItem("Virgin Islands (U.S.)", "VI"))
Items.Add(New ListItem("Wales", "WX"))
Items.Add(New ListItem("Wallis And Futuna Islands", "WF"))
Items.Add(New ListItem("Western Sahara", "EH"))
Items.Add(New ListItem("Western Samoa", "WS"))
Items.Add(New ListItem("Yemen", "YE"))
Items.Add(New ListItem("Yugoslavia", "YU"))
Items.Add(New ListItem("Zambia", "ZM"))
Items.Add(New ListItem("Zimbabwe", "ZW"))
MyBase.OnPreRender(e)
End Sub

Protected Overrides Function SaveViewState() As Object

End Function

Protected Overrides Sub LoadViewState(ByVal savedState As Object)

End Sub
End ClassThis question is better answered in .dotnet.framework.aspnet.

Anyway, take a look at this caching article. It should prove useful.

--
-oj
http://www.rac4sql.net

"Versteijn" <versteijn@.538mail.nl> wrote in message
news:4d19834f.0402290936.79156a16@.posting.google.c om...
> Hello all
> I am developing a CountrySelector control (which I would like to share
> with anyone), but I am quite a newby in this custom control area.
> You can find it at:
> http://home.kabelfoon.nl/~juliusd/v...ntrySelector.vb
> Some questions I have are:
> - In what event should the items be added. In this case (PreRender)
> items added on every render (duh) and get duplicated when ViewState is
> enabled. Best would be if the items show up in the designer already
> but only in designmode and not with <ListItem> in the HTML source.
> - How can I override ViewState get/set methods to only save the
> current selection and not the whole collection? It will also need to
> save whether it is the first render (for the use of the DefaultCountry
> property)
> - What behaviour to expect when an invalid countrycode is selected by
> consuming (.net) code (e.g. in the DefaultCountry property)?
> - Is it possible to use System.Globalization to populate the
> collection with country(code)'s?
> Thank you in advance.
> Hope to hear from you
> Freek Versteijn
>
> Here is the concept code:
>
> Imports System.ComponentModel
> Imports System.Web.UI
> Imports System.Web.UI.WebControls
> <ToolboxData("<{0}:CountrySelector
> runat=server></{0}:CountrySelector>")> Public Class CountrySelector
> Inherits System.Web.UI.WebControls.DropDownList
> Protected _DefaultCountry As String
> <Description("The initial country's code")> _
> Public Property DefaultCountry() As String
> Get
> Return _DefaultCountry
> End Get
> Set(ByVal Value As String)
> _DefaultCountry = ("" & Value).ToUpper()
> End Set
> End Property
> 'TODO:
> ' [ ] Move adding of items to other method?
> ' [ ] Show DefaultCountry at first render
> ' [ ] ViewState to only save the selected item
> ' [ ] Use System.Globalization (RegionInfo.DisplayName or
> .EnglishName depending on CurrentCulture) for populating the Items
> collection if possible
> Protected Overrides Sub OnPreRender(ByVal e As EventArgs)
> Items.Add(New ListItem("Albania", "AL"))
> Items.Add(New ListItem("Algeria", "DZ"))
> Items.Add(New ListItem("American Samoa", "AS"))
> Items.Add(New ListItem("Andorra", "AD"))
> Items.Add(New ListItem("Angola", "AO"))
> Items.Add(New ListItem("Anguilla", "AI"))
> Items.Add(New ListItem("Antarctica", "AQ"))
> Items.Add(New ListItem("Antigua/Barbuda", "AG"))
> Items.Add(New ListItem("Argentina", "AR"))
> Items.Add(New ListItem("Armenia", "AM"))
> Items.Add(New ListItem("Aruba", "AW"))
> Items.Add(New ListItem("Australia", "AU"))
> Items.Add(New ListItem("Austria", "AT"))
> Items.Add(New ListItem("Azerbaijan", "AZ"))
> Items.Add(New ListItem("Bahamas", "BS"))
> Items.Add(New ListItem("Bahrain", "BH"))
> Items.Add(New ListItem("Bangladesh", "BD"))
> Items.Add(New ListItem("Barbados", "BB"))
> Items.Add(New ListItem("Belarus", "BY"))
> Items.Add(New ListItem("Belgium", "BE"))
> Items.Add(New ListItem("Belize", "BZ"))
> Items.Add(New ListItem("Benin", "BJ"))
> Items.Add(New ListItem("Bermuda", "BM"))
> Items.Add(New ListItem("Bhutan", "BT"))
> Items.Add(New ListItem("Bolivia", "BO"))
> Items.Add(New ListItem("Bosnia", "BA"))
> Items.Add(New ListItem("Botswana", "BW"))
> Items.Add(New ListItem("Bouvet Island", "BV"))
> Items.Add(New ListItem("Brazil", "BR"))
> Items.Add(New ListItem("British Indian Ocean Territory",
> "IO"))
> Items.Add(New ListItem("British West Indies", "WI"))
> Items.Add(New ListItem("Brunei Darussalam", "BN"))
> Items.Add(New ListItem("Bulgaria", "BG"))
> Items.Add(New ListItem("Burkina Faso", "BF"))
> Items.Add(New ListItem("Burma", "BU"))
> Items.Add(New ListItem("Burundi", "BI"))
> Items.Add(New ListItem("Cambodia", "KH"))
> Items.Add(New ListItem("Cameroon", "CM"))
> Items.Add(New ListItem("Canada", "CA"))
> Items.Add(New ListItem("Cape Verde", "CV"))
> Items.Add(New ListItem("Cayman Islands", "KY"))
> Items.Add(New ListItem("Central Africa", "CF"))
> Items.Add(New ListItem("Chad", "TD"))
> Items.Add(New ListItem("Chile", "CL"))
> Items.Add(New ListItem("China", "CN"))
> Items.Add(New ListItem("Christmas Island", "CX"))
> Items.Add(New ListItem("Cocos (Keeling) Islands", "CC"))
> Items.Add(New ListItem("Colombia", "CO"))
> Items.Add(New ListItem("Comoros", "KM"))
> Items.Add(New ListItem("Congo", "CG"))
> Items.Add(New ListItem("Cook Islands", "CK"))
> Items.Add(New ListItem("Costa Rica", "CR"))
> Items.Add(New ListItem("Cote D'Ivoire", "CI"))
> Items.Add(New ListItem("Croatia", "HR"))
> Items.Add(New ListItem("Cuba", "CU"))
> Items.Add(New ListItem("Cyprus", "CY"))
> Items.Add(New ListItem("Czech Republic", "CZ"))
> Items.Add(New ListItem("Denmark", "DK"))
> Items.Add(New ListItem("Djibouti", "DJ"))
> Items.Add(New ListItem("Dominica", "DM"))
> Items.Add(New ListItem("Dominican Republic", "DO"))
> Items.Add(New ListItem("East Timor", "TP"))
> Items.Add(New ListItem("Ecuador", "EC"))
> Items.Add(New ListItem("Egypt", "EG"))
> Items.Add(New ListItem("El Salvador", "SV"))
> Items.Add(New ListItem("Equatorial Guinea", "GQ"))
> Items.Add(New ListItem("Eritrea", "ER"))
> Items.Add(New ListItem("Estonia", "EE"))
> Items.Add(New ListItem("Ethiopia", "ET"))
> Items.Add(New ListItem("Faeroe Islands", "FO"))
> Items.Add(New ListItem("Falkland Islands", "FK"))
> Items.Add(New ListItem("Fiji", "FJ"))
> Items.Add(New ListItem("Finland", "FI"))
> Items.Add(New ListItem("France", "FR"))
> Items.Add(New ListItem("French Polynesia", "PF"))
> Items.Add(New ListItem("French Southern Territories", "TF"))
> Items.Add(New ListItem("Gabon", "GA"))
> Items.Add(New ListItem("Gambia", "GM"))
> Items.Add(New ListItem("Gaza", "XA"))
> Items.Add(New ListItem("Georgia", "GE"))
> Items.Add(New ListItem("Germany", "DE"))
> Items.Add(New ListItem("Ghana", "GH"))
> Items.Add(New ListItem("Gibraltar", "GI"))
> Items.Add(New ListItem("Greece", "GR"))
> Items.Add(New ListItem("Greenland", "GL"))
> Items.Add(New ListItem("Grenada", "GD"))
> Items.Add(New ListItem("Guadeloupe", "GP"))
> Items.Add(New ListItem("Guam", "GU"))
> Items.Add(New ListItem("Guatemala", "GT"))
> Items.Add(New ListItem("Guiana", "GF"))
> Items.Add(New ListItem("Guinea", "GN"))
> Items.Add(New ListItem("Guinea-Bissau", "GW"))
> Items.Add(New ListItem("Guyana", "GY"))
> Items.Add(New ListItem("Haiti", "HT"))
> Items.Add(New ListItem("Heard And Mcdonald Islands", "HM"))
> Items.Add(New ListItem("Held Territories", "XH"))
> Items.Add(New ListItem("Honduras", "HN"))
> Items.Add(New ListItem("Hong Kong", "HK"))
> Items.Add(New ListItem("Hungary", "HU"))
> Items.Add(New ListItem("Iceland", "IS"))
> Items.Add(New ListItem("India", "IN"))
> Items.Add(New ListItem("Indian Ocean Islands", "XI"))
> Items.Add(New ListItem("Indonesia", "ID"))
> Items.Add(New ListItem("Iran", "IN"))
> Items.Add(New ListItem("Iraq", "IQ"))
> Items.Add(New ListItem("Ireland", "IE"))
> Items.Add(New ListItem("Israel", "IL"))
> Items.Add(New ListItem("Italy", "IT"))
> Items.Add(New ListItem("Jamaica", "JM"))
> Items.Add(New ListItem("Japan", "JP"))
> Items.Add(New ListItem("Jordan", "JO"))
> Items.Add(New ListItem("Kazakhstan", "KZ"))
> Items.Add(New ListItem("Kenya", "KE"))
> Items.Add(New ListItem("Kiribati", "KI"))
> Items.Add(New ListItem("Korea", "KR"))
> Items.Add(New ListItem("Kuwait", "KW"))
> Items.Add(New ListItem("Kyrgyzstan", "KG"))
> Items.Add(New ListItem("Laos", "LA"))
> Items.Add(New ListItem("Latvia", "LV"))
> Items.Add(New ListItem("Lebanon", "LB"))
> Items.Add(New ListItem("Lesotho", "LS"))
> Items.Add(New ListItem("Liberia", "LR"))
> Items.Add(New ListItem("Libya", "LY"))
> Items.Add(New ListItem("Liechtenstein", "LI"))
> Items.Add(New ListItem("Lithuania", "LT"))
> Items.Add(New ListItem("Luxembourg", "LU"))
> Items.Add(New ListItem("Macau", "MO"))
> Items.Add(New ListItem("Macedonia", "MK"))
> Items.Add(New ListItem("Madagascar", "MG"))
> Items.Add(New ListItem("Malawi", "MW"))
> Items.Add(New ListItem("Malaysia", "MY"))
> Items.Add(New ListItem("Maldives", "MV"))
> Items.Add(New ListItem("Mali", "ML"))
> Items.Add(New ListItem("Malta", "MT"))
> Items.Add(New ListItem("Marshall Islands", "MH"))
> Items.Add(New ListItem("Martinique", "MQ"))
> Items.Add(New ListItem("Mauritania", "MR"))
> Items.Add(New ListItem("Mauritius", "MU"))
> Items.Add(New ListItem("Mayotte", "YT"))
> Items.Add(New ListItem("Mexico", "MX"))
> Items.Add(New ListItem("Micronesia", "FM"))
> Items.Add(New ListItem("Moldova", "MD"))
> Items.Add(New ListItem("Monaco", "MC"))
> Items.Add(New ListItem("Mongolia", "MN"))
> Items.Add(New ListItem("Montserrat", "MS"))
> Items.Add(New ListItem("Morocco", "MA"))
> Items.Add(New ListItem("Mozambique", "MZ"))
> Items.Add(New ListItem("Myanmar", "MM"))
> Items.Add(New ListItem("Namibia", "NA"))
> Items.Add(New ListItem("Nauru", "NR"))
> Items.Add(New ListItem("Nepal", "NP"))
> Items.Add(New ListItem("Netherlands", "NL"))
> Items.Add(New ListItem("Netherlands Antilles", "AN"))
> Items.Add(New ListItem("New Caledonia", "NC"))
> Items.Add(New ListItem("New Zealand", "NZ"))
> Items.Add(New ListItem("Nicaragua", "NI"))
> Items.Add(New ListItem("Niger", "NE"))
> Items.Add(New ListItem("Nigeria", "NG"))
> Items.Add(New ListItem("Niue", "NU"))
> Items.Add(New ListItem("Norfolk Island", "NF"))
> Items.Add(New ListItem("North Korea", "KP"))
> Items.Add(New ListItem("Northern Ireland", "XB"))
> Items.Add(New ListItem("Northern Mariana Islands", "MP"))
> Items.Add(New ListItem("Norway", "NO"))
> Items.Add(New ListItem("Oman", "OM"))
> Items.Add(New ListItem("Pakistan", "PK"))
> Items.Add(New ListItem("Palau", "PW"))
> Items.Add(New ListItem("Panama", "PA"))
> Items.Add(New ListItem("Papua New Guinea", "PG"))
> Items.Add(New ListItem("Paraguay", "PY"))
> Items.Add(New ListItem("Peru", "PE"))
> Items.Add(New ListItem("Philippines", "PH"))
> Items.Add(New ListItem("Pitcairn", "PN"))
> Items.Add(New ListItem("Poland", "PL"))
> Items.Add(New ListItem("Portugal", "PT"))
> Items.Add(New ListItem("Puerto Rico", "PR"))
> Items.Add(New ListItem("Qatar", "QA"))
> Items.Add(New ListItem("Reunion", "RE"))
> Items.Add(New ListItem("Romania", "RO"))
> Items.Add(New ListItem("Russia", "RU"))
> Items.Add(New ListItem("Rwanda", "RW"))
> Items.Add(New ListItem("Saint Lucia", "LC"))
> Items.Add(New ListItem("San Marino", "SM"))
> Items.Add(New ListItem("Sao Tome And Principe", "ST"))
> Items.Add(New ListItem("Saudi Arabia", "SA"))
> Items.Add(New ListItem("Scotland", "WY"))
> Items.Add(New ListItem("Senegal", "SN"))
> Items.Add(New ListItem("Seychelles", "SC"))
> Items.Add(New ListItem("Sierra Leone", "SL"))
> Items.Add(New ListItem("Singapore", "SG"))
> Items.Add(New ListItem("Slovak Republic", "SK"))
> Items.Add(New ListItem("Slovenia", "SI"))
> Items.Add(New ListItem("Solomon Islands", "SB"))
> Items.Add(New ListItem("Somalia", "SO"))
> Items.Add(New ListItem("South Africa", "ZA"))
> Items.Add(New ListItem("South Georgia", "GS"))
> Items.Add(New ListItem("Spain", "ES"))
> Items.Add(New ListItem("Sri Lanka", "LK"))
> Items.Add(New ListItem("St. Helena", "SH"))
> Items.Add(New ListItem("St. Kitts & Nevis", "KN"))
> Items.Add(New ListItem("St. Pierre", "PM"))
> Items.Add(New ListItem("St. Vincent & The Grenadines", "VC"))
> Items.Add(New ListItem("Sudan", "SD"))
> Items.Add(New ListItem("Suriname", "SR"))
> Items.Add(New ListItem("Svalbard And Jan Mayen Islands",
> "SJ"))
> Items.Add(New ListItem("Swaziland", "SZ"))
> Items.Add(New ListItem("Sweden", "SE"))
> Items.Add(New ListItem("Switzerland", "CH"))
> Items.Add(New ListItem("Syria", "SY"))
> Items.Add(New ListItem("Taiwan", "TW"))
> Items.Add(New ListItem("Tajikistan", "TJ"))
> Items.Add(New ListItem("Tanzania", "TZ"))
> Items.Add(New ListItem("Thailand", "TH"))
> Items.Add(New ListItem("Togo", "TG"))
> Items.Add(New ListItem("Tokelau", "TK"))
> Items.Add(New ListItem("Tonga", "TO"))
> Items.Add(New ListItem("Trinidad And Tobago", "TT"))
> Items.Add(New ListItem("Tunisia", "TN"))
> Items.Add(New ListItem("Turkey", "TR"))
> Items.Add(New ListItem("Turkmenistan", "TM"))
> Items.Add(New ListItem("Turks And Caicos Islands", "TC"))
> Items.Add(New ListItem("Tuvalu", "TV"))
> Items.Add(New ListItem("U.S. Minor Outlying Islands", "UM"))
> Items.Add(New ListItem("U.S.A.", "US"))
> Items.Add(New ListItem("Uganda", "UG"))
> Items.Add(New ListItem("Ukraine", "UA"))
> Items.Add(New ListItem("United Arab Emirates", "AE"))
> Items.Add(New ListItem("United Kingdom", "GB"))
> Items.Add(New ListItem("Uruguay", "UY"))
> Items.Add(New ListItem("Uzbekistan", "UZ"))
> Items.Add(New ListItem("Vanuatu", "VU"))
> Items.Add(New ListItem("Vatican City State", "VA"))
> Items.Add(New ListItem("Venezuela", "VE"))
> Items.Add(New ListItem("Viet Nam", "VN"))
> Items.Add(New ListItem("Virgin Islands (British)", "VG"))
> Items.Add(New ListItem("Virgin Islands (U.S.)", "VI"))
> Items.Add(New ListItem("Wales", "WX"))
> Items.Add(New ListItem("Wallis And Futuna Islands", "WF"))
> Items.Add(New ListItem("Western Sahara", "EH"))
> Items.Add(New ListItem("Western Samoa", "WS"))
> Items.Add(New ListItem("Yemen", "YE"))
> Items.Add(New ListItem("Yugoslavia", "YU"))
> Items.Add(New ListItem("Zambia", "ZM"))
> Items.Add(New ListItem("Zimbabwe", "ZW"))
> MyBase.OnPreRender(e)
> End Sub
> Protected Overrides Function SaveViewState() As Object
> End Function
> Protected Overrides Sub LoadViewState(ByVal savedState As Object)
> End Sub
> End Class|||versteijn@.538mail.nl (Versteijn) wrote in message news:<4d19834f.0402290936.79156a16@.posting.google.com>...
> Hello all
> I am developing a CountrySelector control (which I would like to share
> with anyone), but I am quite a newby in this custom control area.
> You can find it at:
> http://home.kabelfoon.nl/~juliusd/v...ntrySelector.vb

This is odd. I swear I posted it to the aspnet and buildingcontrols forums :S

Anyway thank you.

Freek Versteijn