2 small questions ;)

[choas]

Hi,

I just installed VS .NET 2003, and I have two questions.

1. When I try to create a ASP Web Application I get a error message saying "The web server isn't running ASP 1.1, unable to run application ....". I have Framework 1.1 installed ans ISS too.

So what should I do ?


2. (a stupid one ) How can I change the color of a TabControl, I'd liek to make them llok like ine the start page of VS .NET, I putted them in flat apparence, but I donno how I can change their color.


Thanks for your help

[Negative0]

For #2, you can use this code, adapted from an MSDN example:

Imports System.Drawing
Imports System.Windows.Forms
 
Public Class Form1
    Inherits Form
    Private tabArea As Rectangle
    Private tabTextArea As RectangleF
 
    Public Sub New()
        Dim tabControl1 As New TabControl
        Dim tabPage1 As New TabPage
 
        ' Allows access to the DrawItem event. 
        tabControl1.DrawMode = TabDrawMode.OwnerDrawFixed
 
        tabControl1.SizeMode = TabSizeMode.Fixed
        tabControl1.Controls.Add(tabPage1)
        tabControl1.ItemSize = New Size(80, 30)
        tabControl1.Location = New Point(25, 25)
        tabControl1.Size = New Size(250, 250)
        tabControl1.Appearance = TabAppearance.FlatButtons
        tabPage1.TabIndex = 0
        tabPage1.BackColor = Color.White
        ClientSize = New Size(300, 300)
        Controls.Add(tabControl1)
 
        tabArea = tabControl1.GetTabRect(0)
        tabTextArea = RectangleF.op_Implicit(tabControl1.GetTabRect(0))
 
        ' Binds the event handler DrawOnTab to the DrawItem event 
        ' through the DrawItemEventHandler delegate.
        AddHandler tabControl1.DrawItem, AddressOf DrawOnTab
    End Sub
 
    ' Declares the event handler DrawOnTab which is a method that
    ' draws a string and Rectangle on the tabPage1 tab.
    Private Sub DrawOnTab(ByVal sender As Object, ByVal e As DrawItemEventArgs)
        Dim g As Graphics = e.Graphics
        Dim p As New Pen(Color.Blue)
        Dim font As New Font("Arial", 10.0F)
        Dim brush As New SolidBrush(Color.White)
        Dim b As New SolidBrush(Color.Blue)
        Dim tmpText As RectangleF
        g.DrawRectangle(p, tabArea)
        g.FillRectangle(b, tabArea)
        tmpText = tabTextArea
        tmpText.X = tabTextArea.X + 5
        tmpText.Y = tabTextArea.Y + 5
        g.DrawString("Page1", font, brush, tmpText)
    End Sub
 
    Shared Sub Main()
        Application.Run(New Form1)
    End Sub
End Class

Here is the original:

http://msdn.microsoft.com/library/de...witemtopic.asp