请哪位有空解决一个问题？

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Not IsPostBack Then
            Dim strTxt As String
            Dim strPath As String
            Dim IntCount As Integer
            Dim i, j, theLen As Integer
            Dim Str1 As String

            strPath = Server.MapPath("count.txt")
            strTxt = Trim(ReadText(strPath))
            If Trim(strTxt) = "" Or Not IsNumeric(Trim(strTxt)) Then
                IntCount = 1
            Else
                IntCount = Convert.ToInt32(Trim(strTxt)) + 1
            End If
            WriteText(strPath, Convert.ToString(IntCount))
            theLen = Len(Trim(IntCount))
            For i = 1 To theLen
                Str1 = Mid(Trim(IntCount), i, 1)
                Dim thePic1 As New image
                thePic1.Width = "13"
                thePic1.Height = "21"
                thePic1.ImageUrl = "pic/" & Trim(Str1) & ".gif"
                PlaceHolder1.Controls.Add(thePic1)
            Next
        End If
    End Sub
Dim thePic1 As New image 这一句有错误？

16 个解决方案

#1

#2

try

Dim myImage As New Image()

#3

Dim thePic1 As New image ()
这一句的括号根本加不上？

#4

Dim thePic1[theLen] as New Image

For i = 1 To theLen
                Str1 = Mid(Trim(IntCount), i, 1)
                thePic[i].Width = "13"
                thePic[i].Height = "21"
                thePic[i].ImageUrl = "pic/" & Trim(Str1) & ".gif"
                PlaceHolder1.Controls.Add(thePic[i])
            Next

VB.net没用过，大致上应该是这样吧

#5

Dim objImg As New HtmlImage

#6

Dim thePic1 As New image ()
这一句的括号根本加不上？
-------------------------
报什么错误。

#7

C:\Inetpub\wwwroot\计数器\Counts_pic1.ascx.vb(45): “Image”不明确，从命名空间或类型“System.Web.UI.WebControls, System.Drawing”导入。

#8

“/计数器”应用程序中的服务器错误。
--------------------------------------------------------------------------------

编译错误
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。

编译器错误信息: BC30311: 类型“String”的值无法转换为“System.Web.UI.WebControls.Unit”。

源错误:

行 21： Imports System.Text
行 22： Imports System.Text.RegularExpressions
行 23： Imports System.Web
行 24： Imports System.Web.Caching
行 25： Imports System.Web.Security

源文件: http://localhost/计数器/Counts_pic.ascx 行: 23

#9

哦，是因为类名重复，编译器不知道你用的是哪个类：

Dim thePic1 As New System.Web.UI.WebControls.Image()

#10

C:\WINDOWS\system32> "c:\windows\microsoft.net\framework\v1.1.4322\vbc.exe" /t:library /utf8output /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\计数器\3c3b5879\21209e67\o0lpzcib.dll" /R:"c:\windows\assembly\gac\system.web\1.0.5000.0__b03f5f7f11d50a3a\system.web.dll" /R:"c:\windows\assembly\gac\system\1.0.5000.0__b77a5c561934e089\system.dll" /R:"c:\windows\assembly\gac\system.web.services\1.0.5000.0__b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\windows\assembly\gac\system.xml\1.0.5000.0__b77a5c561934e089\system.xml.dll" /R:"c:\windows\assembly\gac\system.drawing\1.0.5000.0__b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\windows\microsoft.net\framework\v1.1.4322\temporary asp.net files\计数器\3c3b5879\21209e67\assembly\dl2\ae4679c7\4299ddd0_11f5c701\计数器.dll" /R:"c:\windows\assembly\gac\system.web.mobile\1.0.5000.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\windows\assembly\gac\system.data\1.0.5000.0__b77a5c561934e089\system.data.dll" /R:"c:\windows\assembly\gac\system.enterpriseservices\1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseservices.dll" /out:"C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\计数器\3c3b5879\21209e67\trikf4oh.dll" /D:DEBUG=1 /debug+  "C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\Temporary ASP.NET Files\计数器\3c3b5879\21209e67\trikf4oh.0.vb"

Microsoft (R) Visual Basic .NET 编译器版本 7.10.3052.4
用于 Microsoft (R) .NET Framework 版本 1.1.4322.573
版权所有 (C) Microsoft Corporation 1987-2000。保留所有权利。

http://localhost/计数器/Counts_pic.ascx(23) : error BC30311: 类型“String”的值无法转换为“System.Web.UI.WebControls.Unit”。

                thePic1.Width = "13"
                                ~~~~
http://localhost/计数器/Counts_pic.ascx(24) : error BC30311: 类型“String”的值无法转换为“System.Web.UI.WebControls.Unit”。

                thePic1.Height = "21"

#11

http://localhost/计数器/Counts_pic.ascx(23) : error BC30311: 类型“String”的值无法转换为“System.Web.UI.WebControls.Unit”。

                thePic1.Width = "13"
                                ~~~~
http://localhost/计数器/Counts_pic.ascx(24) : error BC30311: 类型“String”的值无法转换为“System.Web.UI.WebControls.Unit”。

                thePic1.Height = "21"

#12

thePic1.Width = 13;
thePic1.Height = 21;

#13

你用的是c#

#14

编译错误
说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。

编译器错误信息: BC30311: 类型“String”的值无法转换为“System.Web.UI.WebControls.Unit”。

源错误:

行 12：                 Str1 = Mid(Trim(IntCount), i, 1)
行 13：                 Dim thePic1 As New Image()
行 14：                 thePic1.Width = "13"
行 15：                 thePic1.Height = "21"
行 16：                 thePic1.ImageUrl = "pic/" & Trim(Str1) & ".gif"

#15

C#和VB.NET是一样的，不要使用字符串，直接赋值:

thePic1.Width = 13
thePic1.Height = 21

#16

说明: 在编译向该请求提供服务所需资源的过程中出现错误。请检查下列特定错误详细信息并适当地修改源代码。

编译器错误信息: BC30311: 类型“Integer”的值无法转换为“System.Web.UI.WebControls.Unit”。

源错误:

行 21： Imports System.Text
行 22： Imports System.Text.RegularExpressions
行 23： Imports System.Web
行 24： Imports System.Web.Caching
行 25： Imports System.Web.Security

源文件: http://localhost/计数器/Counts_pic.ascx 行: 23

#1

#2