vb2008でのクラスライブラリ実行に関する質問
- vb2008で作成したクラスライブラリをデバッグする方法についての質問です。
- クラスライブラリの単体でのデバッグはできないため、新しいプロジェクトでWindowsフォームアプリケーションを作成し、ボタンを押して実行する方法があります。
- 具体的な記述方法については質問者も分からないため、教えていただけると助かります。
- ベストアンサー
vb2008でのクラスライブラリ実行に関して
vb2008でのクラスライブラリ実行に関しての質問なのですが、 クラスライブラリで以下の内容のプロジェクトを作成しました。 プロジェクト名：TEST ファイル名：TEST1.vb '～プログラム内容～ Module D01001B Public Function Main(ByVal CmdArgs() As String) As Integer 'バッチの処理内容 End Function End Module このバッチをデバックしたいのですが、どうやらクラスライブラリは 単体ではデバックできないらしくどうすればできるのか困っています。 調べてみると新しいプロジェクトでWindowsフォームアプリケーション を選択し、フォームからボタンを押して実行する方法があるとの ことなのですがどのように記述したらよいかわかりません。 できればどのように記述すれば実行(呼び出し)できるのか教えていただけないでしょうか？ 以上
- yxa98632
- お礼率57% (8/14)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- VB２００８： クラスライブラリとはなんなのか？
クラスライブラリとはなんなのか？ 私は、クラスライブラリとはプロパティやメソッドを備えたもの。 そういう理解をしていました。 しかし、今、その認識が揺らいでいます。 それは、System.Text との出会いがきっかけ。 Imports System.IO Module mdlFileSystem Function FileSeek(ByVal aFile As String, _ ・・・・・ If File.Exists(aFile) Then Dim Buf(1) As Byte Dim ec As System.Text.Encoding = System.Text.Encoding.Default Dim fs As FileStream = New FileStream(・・・・・) これは、次のようにも書けます。 Imports System.IO Imports System.Text Module mdlFileSystem Function FileSeek(・・・・・) As String ・・・・・ If File.Exists(aFileName) Then Dim Buf(1) As Byte Dim ec As Encoding = Encoding.Default Dim fs As FileStream = New FileStream(・・・・・) この New 宣言を必要としない関数群とも言えるクラスライブラリ。 ここで、何が問題かと言うと実は自作の LenB関数の扱い。 Public Class Text #Region "LenB メソッド" ・・・・・ #End Region #Region "LenB メソッド" ・・・・・ #End Region End Class このように書くこともできます。 別にクラスライブラリなどと上段に構えなくても標準ライブラリでも用は足ります。 言わば、複数のプロパティやメソッドを装備しないのだ単なる標準ライブラリのクラスライブラリ版。 本格的なクラスライブラリ、標準ライブラリのクラスライブラリ版、標準ライブラリ。 一体、この３つをどう切り分けすべきなのであろうか？ ＶＢ２００８を学び始めて３週間。 しかも、プログラマでもなんでもない素人。 この辺りをどのように考えたらいいのでしょうか？ どうにもスッキリしません。 「このように考えたらいいですよ」という回答をお願いします。
- ベストアンサー
- Visual Basic
- VB.NET クラス内でプログラムを終了するには?
VBAでは、エラーでプログラムを終了する時には Endステートメントを記述していましたが、 このVBAをVB.NET(クラスライブラリ、DLL)に 書き換えていますが VB.NETでClass1クラスの中にtest()メソッドを作って この中にEndステートメントを記述すると 「クラスライブラリプロジェクトで Endステートメントを使用することができません。」 というメッセージが表示されますが エラーでプログラムを終了するには どのように記述すればいいのでしょうか。 Public Class Class1 Public Sub test(ByVal a As String) If a = "" Then MsgBox("致命的なエラーです") End <===エラー発生 End If End Sub End Class よろしくお願いします。(WindowsXP,VS2010)
- ベストアンサー
- Visual Basic
- VB.NETでクラスライブラリプロジェクトがでてこない
VB.NETスタンダードですが、DLLを作りたいのですが、新しいプロジェクトで「クラスライブラリプロジェクト」がでてきません。どうしてでしょうか？ また、VB.NETで普通にDLLを作成するには、やはり「クラスライブラリプロジェクト」を開くしかないのでしょうか？
- ベストアンサー
- Visual Basic
- VB.NETからVBAマクロ(引数)を呼び出す方法
VB.NETから参照型引数付きのFunctionのVBAマクロを呼び出す方法 Excel2003のVBEの標準モジュールModule1にあるFunctionのマクロtest(引数)をVB.NETから呼び出して、引数に設定した値をVBA側で加工して、加工された値をVB.NETで取り出したいのですが、VB.NET側でどのように記述してよいのかがよく分かりません。 具体的には、以下のVBAをVB.NETから呼び出すにはどのように記述すればよいのでしょうか。できましたらそのままVB.NETのConsoleApplicationのModule1のSub Main()の中にコピーペーストして動くコードと参照設定を教えていただけると助かります。 ---Excel2003のVBA(C:\test\Book1.xls)---------- Function test(ByRef data As Long) As Long If data = 0 Then test = 0 data = 0 Else test = 1 data = 100 / data End If End Function ---------------------------------------------- よろしくお願いします(WindowsXP,VisualStudio2010,Excel2003VBE)
- 締切済み
- Visual Basic
- フォームがないプロジェクト
vb2005でプロジェクトを作成しています。 このプロジェクトはフォームがなく moduleのみで構成されています。 sub main() ・・・・・・・・ end sub private function ... ..... end function このプロジェクトで、開始時と終了時に絶対実行したい処理を追加したい場合は、新たにフォーム等を作成して、フォーム非表示にするなどの設定をしなければいけないでしょうか？ できればご教授、よろしくお願い致します。
- ベストアンサー
- Visual Basic
- C++製DLLにてVB.NET関数を引数付きでコールバックしたい。
C++製DLLにてVB.NET関数を引数付きでコールバックしたい。 以下のようなソリューションがあります。 ソリューションには、VB.NETによるプロジェクトapp、C++によるプロジェクトdllがあり、 名前のとおり、appはWindowsフォームアプリケーション、dllはクラスライブラリです。 *** VisualStudio.NET 2003 ソリューション *** === VB.NETプロジェクト：app.exe === --- Module1.vb --- Module Module1 Delegate Function _t() As Int32 <System.Runtime.InteropServices.DllImport("dll.dll")> Public Function dllfunc(ByVal lpFunc As _t) As Int32 End Function End Module --- Form1.vb --- Public Class Form1 Inherits Form Private button1 As Button Public Sub New() button1 = New Button button1.Parent = Me : button1.Text = "button1" AddHandler button1.Click, AddressOf MyClass.GetEvent End Sub Private Sub GetEvent(ByVal sender As Object, ByVal e As EventArgs) dllfunc(AddressOf func1) End Sub Public Function func1() As Int32 MsgBox("func1@vb.net") Return 123 End Function End Class === C++ライブラリプロジェクト：dll.dll === --- dll.def --- LIBRARY dll EXPORTS dllfunc --- dll.h --- #ifdef DLL_EXPORTS #define DLL_API __declspec(dllexport) #else #define DLL_API __declspec(dllimport) #endif DLL_API void dllfunc(int* vbfunc(void)); -- dll.cpp --- #include "stdafx.h" #include "dll.h" #include "stdio.h" #include "windows.h" BOOL APIENTRY DllMain( HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved ) { return true; } DLL_API void dllfunc(int* vbfunc(void)) { char str[16]; sprintf(str,"vbfunc() = %d",vbfunc()); MessageBoxA(NULL,str,"dll",MB_OK); } --- stdafx.cpp, stdafx.h --- (省略) *** ソリューション ここまで *** [ 動作 ] appを実行すると、Form1にbutton1が生成される。 button1をクリックするとGetEventが呼ばれ、func1のアドレスを引数としたdllfunc()を呼びます。 dll側のdllfunc()から、app側のfunc1()を呼び、戻り値の123を表示します。 [ 質問 ] dllfunc()から引数付きでfunc1()を呼びたいが、記述の方法が分かりません。 ご教示お願い致します。
- ベストアンサー
- Visual Basic
- VB2010からコマンドの実行方法
環境 VisualBasic2010Express WindowsXPSP3 前提 あるプログラムをインストールしていると使えるコマンドがあります。 コマンドプロンプト上から、バッチファイルを実行すると正常動作します。 仮に j.bat とします。 内容は dxf -o -s c:\test\test0.dxf dxf -o -s c:\test\test1.dxf dxf -o -s c:\test\test2.dxf こんな感じです。 dxfの本体は、とあるフォルダにあるdxf.exeと思われます。 （同名ファイルが複数あるので、特定できていません） パスが通っているのか、カレントディレクトリ（？）に関係なく実行可能です。 このバッチファイルを実行すると処理は正常です。 現状 VBでボタンを押したらバッチファイルと同じ処理をするプログラムを作りたいのですが 実行する内容が毎回変化します。（dxfコマンドの引数が変わる） よって同じバッチファイルは使えません。 Dim Buffer(2) As String Dim Ret(2) As Integer for i =0 to 2 Buffer(i) = "dxf -o -s c:\test\test" & i & ".dxf" Ret(i) = Shell(Buffer(i), vbNormalFocus) next i こんなプログラムですが、処理がされてません。 コマンドプロンプトは一瞬3個開きます。 dxfをフルパスで記述しても同じです。 質問(1) コマンドプロンプト上にメッセージが出ているようなのですが 一瞬で消えるので読めません。 コマンドプロンプトを閉じない方法はありませんか？ なければ出力を残す方法はありますか？ 質問(2) バッチファイルを毎回生成して、 そのバッチファイルをShellコマンドで実行すれば動くのかも知れませんが 他に良い方法はありませんか？ よろしくお願いします。 私は、VB2010は初めて。 VB6で2個プログラムを作った程度です。 コマンドプロンプト関連（？）は初めてです。
- 締切済み
- Visual Basic
- Visual Basic 2005 クラスライブラリの使い方
異なるクラス間で共通の変数aを使いたいのですが、うまくいきません。あるクラスForm1でaを宣言しても他のクラスClass1でも宣言しないとエラーが出てしまいます。 以下のクラスをデバイスアプリケーションとして作成し、 Public Class Form1 Public a As Integer = 100 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Test As New MyLibrary.Class1 Test.Plus1() MsgBox(a, MsgBoxStyle.Information, "実験") End Sub End Class 以下のクラスをクラスライブラリMyLibraryとして作成します。 Public Class Class1 Dim a As Integer = 0 Public Sub Plus1() a += 1 End Sub End Class Form1でボタンを押すと、メッセージボックスに100と表示されます。 （関数Plus1の効果なし） ちなみにClass1の「Dim a」を「Static a」にしてクラスライブラリ(DLL)を最初に呼び出したときだけ初期化すればよいと思ったのですが、そうすると「'Static' は、メンバ変数宣言では有効ではありません。」というエラーが出てしまいます。 解決方法をご存知の方、ご教授願います。 また、クラスライブラリ(DLL)を作成するとまとまりができてプログラムの変更がしやすいと思いますが、やはり処理速度が遅くなるなどの問題もあるのでしょうか？
- 締切済み
- Visual Basic
- VB6.0 →VB2005 のアップグレードでエラー表示
VB6.0の標準モジュールでは Private Type typset a As String b As String c As Integer End Type Public make() As typset と記述してエラーもなく正常なのですが、VB2005にアップグレードしたときに、 Option Strict Off Option Explicit On Module Module1 Private Structure typset Dim a As String Dim b As String Dim c As Integer End Structure Public make() As typset←▼エラー▼ End Module 【エラー内容】 'make' は、module 'Module1' をとおして型 'typset' を namespace 'WindowsApplication1' で公開することはできません。 structure部をPublicなどにしてもエラーは消えますが、参照先に影響が出てしまいます。 根本的な解決方法が分かりません。 教えていただけないでしょうか？
- 締切済み
- Visual Basic
- [VB]ライブラリの関数が使えません
お願いします． 現在，メーカーの計測器についているライブラリ(dll)を利用して，測定ソフトを試作しようとしています． 仕様書ではライブラリはC言語で書いてあるようですが，自分はVB.NETでソフトを作ろうと思っています． しかし，うまく関数を使うことができず，現在停滞ています（＞＜； 以下にソースを示しますので，どなたか問題点をご指摘いただけないでしょうか？ >>ライブラリ(仕様書) int send_cmd( WORD CmdSize, void *CmdPacket ) //WORD:符号なし64ビット //CmdSize:送信パケットサイズ(Byte) //CmdPacket:送信パケット >>VB.NET(自作) Public Declare Function send_cmd lib "test.dll" (ByVal CmdSize as ULong, ByRef CmdPacket as Byte() ) as integer Dim Test_Packet(a) as Byte res = send_cmd(Test_Packet.length, Test_packet) //Test_Packet : 送信用パケットのダンプ ***結果 res の値が仕様書の"ｄｌｌの内部エラー"の値でした．
- ベストアンサー
- Visual Basic
お礼
すいません。投稿した後自分で調べたら解決できました。 ありがとうございます。