ASP.NET サーバーでClassのコードが動かない

2023/08/03 19:46

このQ&Aのポイント

ASP.NETサーバーでClassのコードが動かないという問題が発生しています。
ローカルでは正常に動作するのに、サーバーに移行させたとたん、エラーになりました。
エラーメッセージは「Type 'Class1' is not defined.」です。どの部分を修正すればよいか分からず困っています。

ベストアンサー

ASP.NET サーバーでClassのコードが動かない

2007/07/04 18:23

ASP.NET2.0で開発を行っています。以下のようなコードをネットから見つけてきたので、それを元に開発を行おうと思っていたのですが、ローカルでは正常に動作するのに、サーバーに移行させたとたん、エラーになりました。 --------------------- [class1.vb] Public Class Class1 　　Public Function viewip() 　　　　Return System.Web.HttpContext.Current.Request.UserHostAddress 　　End Function End Class [WebForm1.aspx.vb] Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 　　'--Class1のインスタンスを生成　　Dim o_class As New Class1 　　　'--IPアドレスを取得し表示　　Dim s_ip As String = o_class.viewip() 　　Response.Write(s_ip) End Sub ------------------------------- エラーの内容は、下記の通りです。おそらくClass1が見つからないのだろうとは思うのですが、どこを修正すればよいか分からず困っています。どなたかご教授願えないでしょうか？？ ------------------------------- Compiler Error Message: BC30002: Type 'Class1' is not defined. -------------------------------

neco001
お礼率76% (35/46)

Microsoft ASP
回答数1
ありがとう数2

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

redfox63
ベストアンサー率71% (1325/1856)

2007/07/04 21:29 回答No.1

Classファイルの置き場所が既定されているようですよ Webサイト名\App_CodeのフォルダにClassファイルを置くようになっているようです下記参照URLを見てみてください

参考URL：: http://msdn2.microsoft.com/ja-jp/library/ex526337(VS.80).aspx

質問者

お礼 2007/07/05 09:08

なるほどーー！！早速、配置して確認できました！！ Webサイト名の直下に置かなければいけなかったのですね。どうも、ありがとうございました！

関連するQ&A

VB初心者です。コードの書き方が分かりません。
VB初心者です。 VBで（zのn乗）－（xのn乗＋yのn乗）の計算が出来るようにしたいのですが、答えが必ず-1になってしまいます。 Option Explicit On Public Class Form1 Dim x As Long Dim y As Long Dim z As Long Dim n As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox5.Text = (z ^ n) - (x ^ n + y ^ n) End Sub End Class 正しいコードの書き方を教えて下さい。また特定の答えのときにメッセージを表示したいのですが、どうすればいいですか？
- ベストアンサー
- Visual Basic
このコードはどこが間違っていますか？（至急）
急ぎのため再度の質問失礼します。（zのn乗）－（xのn乗＋yのn乗）の計算をさせて、答えが０のときにメッセージを表示したいのですが、どのようなコードを書けばいいのでしょうか？ Option Explicit On Public Class Form1 Dim x As Long Dim y As Long Dim z As Long Dim n As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click x = TextBox1.Text y = TextBox2.Text z = TextBox3.Text n = TextBox4.Text TextBox5.Text = (z ^ n) - (x ^ n + y ^ n) If (TextBox5 .Text= 0) Then Label6.Visible = True End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click End Sub End Class このコードだと答えが必ず-1になってしまうのですが、どこを直せばいいのでしょうか？正しいコードを教えて下さい。よろしくお願いします。
- ベストアンサー
- Visual Basic
クラスの記述を別ファイルに・・・
VS2005でASP.NET Webサイトの開発を行っています。新規作成時に生成される"Default.aspx.vb"に以下のようなコードを記述しました。 1 : Imports System 2 : 3 : Partial Class _Default 4 : Inherits System.Web.UI.Page 5 : 6 : Dim objX = New Space1.Class1 7 : 8 : Dim X = objX.method1(10, 2) 9 : 10 : Dim Y = objX.method2(10, 2) 11 : 12 : End Class 13 : 14 : Namespace Space1 15 : Class Class1 16 : Public Function Method1(ByVal X1 As Integer, ByVal X2 As Integer) As Integer 17 : Dim X3 As Integer 18 : X3 = X1 + X2 19 : Return X3 20 : End Function 21 : 22 : Public Function Method2(ByVal Y1 As Integer, ByVal Y2 As Integer) As Integer 23 : Dim Y3 As Integer 24 : 25 : Y3 = Y1 - Y2 26 : Return Y3 27 : End Function 28 : End Class 29 : End Namespace そこで、15行目以降にある"Class1"なのですが、よく使用するクラスなので、15～29行目のコードを別のファイルに記述したいと思っています。(例えば"AAA.vb"とかに) しかし、15～29行目を別ファイル(AAA.vb)に記述した途端、 "Default.aspx.vb"の6行目でSpace1.Class1が宣言されてない。というエラーが生じます。このようにクラスの記述部を別ファイルにした場合、 Default.aspx.vbでうまくインクルード(レガシーASPの言い方ですが) させるには、どうすればよろしいのでしょうか？
- 締切済み
- その他（プログラミング・開発）
D&Dでファイルパスを取得
フォームにD&Dでファイルパスを取得するプログラムを作ろうと思っているのですが、うまくいきません。ファイルをフォームにドラッグしても禁止マークがでてイベントハンドラがイベントをキャッチしてくれないようです。なにが問題かアドバイスを頂けないでしょうか？よろしくお願いします。 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.AllowDrop = True End Sub Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy End If End Sub Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles MyBase.DragDrop Dim FileName As String FileName = e.Data.GetData(DataFormats.FileDrop)(0) MsgBox(FileName) End Sub End Class ---- 開発環境：VS2005 pro OS：WindowsVista
- ベストアンサー
- Visual Basic
Elseifのコードが分かりません。（至急）
急ぎのため再度の質問失礼します。３つの数字すべてが７のとき、メッセージ１を出し、どれか２つだけが７のときは、メッセージ２を出し、どれか１つだけが７のときは、メッセージ３を出し、どこにも７が含まれていないときは、メッセージ４を出すようにEndifを使って書きたいのですが、正しいコードを教えて下さい。 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Randomize() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click PictureBox1.Visible = False Label4.Visible = False Label1.Text = CStr(Int(Rnd() * 10)) Label2.Text = CStr(Int(Rnd() * 10)) Label3.Text = CStr(Int(Rnd() * 10)) If End If End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click End Sub Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click End Sub End Class よろしくお願いします。
- ベストアンサー
- Visual Basic
VB.NETのデリゲートについて
VB.NETのデリゲートについて質問です。以下のプログラムなのですが、デリゲート型をインスタンス化しているところで、コンストラクタにパラメータを渡していますが、そのコンストラクタはどこに定義されているのでしょうか。 (AddressOf t1.Ohayou)というパラメータが渡されていますが、このパラメータを受け取っているコンストラクタがどれなのかが分かりません。ご教示よろしくお願いいたします。 Delegate Sub Myprint(ByVal s As String) Module Module1 Sub Main() Dim t1 As Test1 = New Test1() Dim t2 As TEst2 = New Test2() Dim d As Myprint = New Myprint(AddressOf t1.Ohayou) d.Invoke("VB太郎") d = New Myprint(AddressOf t2.Konbanwa) d.Invoke("VB太郎") End Sub End Module Class Test1 Sub Ohayou(ByVal s As String) Console.WriteLine("おはようございます。{0}です。", s) End Sub End Class Class Test2 Sub Konbanwa(ByVal s As String) Console.WriteLine("こんばんわ。{0}です。", s) End Sub End Class
- 締切済み
- Visual Basic
JISコードにエンコードすると、半角カタカナが全角になってしまう
VB2005を使っています。本を参考に「JISコードに変換する」コードを記述してみましたが、どうも半角カタカナが全角になってしまうようです。以下のようなコードです、ご存知の方、よろしくお願いいたします。 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '元の文字列 TextBox1.Text = "コネコ" '←ここの「コネコ」は半角で。 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim TextFile As IO.StreamWriter Dim Data() As Byte 'JISコードに変換 Data = Encoding.GetEncoding("iso-2022-jp").GetBytes(TextBox1.Text) 'ファイルに文字列を書き込む TextFile = IO.File.AppendText("C:\TEST.TXT") TextFile.Write(ChgString(Data)) TextFile.Close() MsgBox("osimai") End Sub Private Function ChgString(ByVal bytString As Byte()) As String Dim intCnt As Integer ChgString = "" For intCnt = 0 To UBound(bytString) ChgString &= Chr(bytString(intCnt)) Next End Function
- 締切済み
- Visual Basic
VB2005 DataGridViewにチェックボックスを追加する方法
タイトル通りなのですが VB2005でDataGridViewにチェックボックスを追加したいです。 ############################################################### Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim chColumn As New DataGridViewCheckboxColmun DataGridView1.ColumnCount = 5 DataGridView1.Columns(0).HeaderText = "1" DataGridView1.Columns(1).HeaderText = "2" DataGridView1.Columns(2).HeaderText = "3" DataGridView1.Columns.Insert(4, chColumn) End Sub End Class ############################################################## Dim chColumn As New DataGridViewCheckboxColmun ↑で'型'DataGridViewCheckboxColmunが定義されていませんとなってしまいます。どうすればよいでしょうか。。。。プログラム初めて1週間の初心者なのでお手柔らかによろしくお願いします。
- 締切済み
- Visual Basic
「Me」を「Form1」にするとエラーになる理由
VB２００８です。 Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = "a" Form1.Text = "a"　’←「Form1.Text」に波線ができる。 End Sub End Class というように、「Me」を「Form1」にすると「既定のインスタンスからそれ自体を参照できません。'Me' を使用してください。」となります。ＶＢＡなら「Me」を「Form1」にしてもエラーにならないのに、どうしてＶＢだとエラーになるのでしょうか？
- ベストアンサー
- Visual Basic
ASP.NET　SJIS→UTF-8文字コード変換。
ASP.NETをVBで開発しています。無償の ASP.NET ホスティング「WebMatrixHosting Japan」で実行しています。表題の件ですが、シフトJISのHTMLページから UTF-8のASPXページへPOSTした時に、文字化けすることで困っています。シフトJISの値をUTF-8に変換できる方法をご存知の方、教えてください。お願いします。 ASCII文字は問題なく実行できます。以下検証中のコードですファイル名:SJIS.htm <form action="UTF-8.aspx"> <input type="text" name="username"> <input type="submit"> </form> ファイル名:UTF-8.aspx Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load IF request.form("username") <> "" THEN DIM strIn AS String = request.form("username") Dim bytesData As Byte() = System.Text.Encoding.GetEncoding("shift_jis").GetBytes(strIn) Dim outPut As String = System.Text.Encoding.GetEncoding("UTF-8").GetString(bytesData) Literal1.Text = outPut END IF End Sub
- ベストアンサー
- Microsoft ASP