VB.NET質問スレ(Part44)

.(もんじゃ) · 2018/05/26(土) 18:08:49.12

前スレ

VB.NET質問スレ(Part40)
http://toro.2ch.net/test/read.cgi/tech/1365857015/
VB.NET質問スレ(Part41)
http://peace.2ch.net/test/read.cgi/tech/1391334405/
VB.NET質問スレ(Part42)
http://echo.2ch.net/test/read.cgi/tech/1419148239/
VB.NET質問スレ(Part43)
https://mevius.5ch.net/test/read.cgi/tech/1465958469/

**デフォルトの名無しさん** · 2020/06/03(水) 14:46:36.88

Windows FormのボタンをButton配列で動的に設定している処理があったのですが
静的と動的はどのように使い分けているのでしょうか
ボタンの数が多かったのと関係しているのでしょうか

**デフォルトの名無しさん** · 2020/06/03(水) 15:07:50.89

>>491
「Button配列で動的に設定している処理」が何やっているか読めよ
人によって組み方は変わるからここで聞いたって的外れな憶測しかできんよ

**デフォルトの名無しさん** · 2020/06/03(水) 15:50:36.18

デザイナでポンポン配置するのが面倒じゃなければ性的
こんな数配置してらんねーと思ったら動的

**デフォルトの名無しさん** · 2020/06/03(水) 16:35:27.00

プログラミングしながらおっ勃ててるとかどんだけ変態なんだろう…

**デフォルトの名無しさん** · 2020/06/03(水) 21:13:59.52

毎回婦裸具をオッ立ててます

**デフォルトの名無しさん** · 2020/06/07(日) 10:21:30.67

>>490
一応サポートされる
が、C#メイン

**デフォルトの名無しさん** · 2020/06/12(金) 01:23:39.99

しかし、自作アプリからプリンターに印刷するってこんなに難しいのか？
狙った場所に印刷が出来なくて・・・どうしよう・・

**デフォルトの名無しさん** · 2020/06/12(金) 01:38:26.30

>>497
そんな難しくないと思うよw

もう何年もやってないから適当だけど、たぶんプリンタ固有の余白分ズレてるだけ。
GDI+の原点は用紙の左上ではなく、印刷可能領域の左上になってる。
この問題の対処法はググれば簡単に見つかるはず

**デフォルトの名無しさん** · 2020/06/15(月) 00:22:01.70

>>498
ありがとう。
印刷可能領域の左上なのね。

**デフォルトの名無しさん** · 2020/06/15(月) 01:19:49.90

Sub Main(args As String())で引数を渡さないで実行してもエラーにならない理由わかる方いませんか

**デフォルトの名無しさん** · 2020/06/15(月) 01:44:39.21

むしろなぜエラーになるのか？
どんなエラーになると思ってるんだ

**デフォルトの名無しさん** · 2020/06/25(木) 20:30:11.66

voidって言いたいのかな

**デフォルトの名無しさん** · 2020/07/06(月) 19:38:36.21

デザイン時に設定したプロパティの値（例ではTextBox1.Text）を実行時に取得する方法ってありませんか？
今はLoad時に変数に保存していますが、もっとスマートな方法は無いものかと…

Public Class Form1
　　　Dim defaulttext As String

　　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　　　　　defaulttext = TextBox1.Text
　　　End Sub
End Class

**デフォルトの名無しさん** · 2020/07/07(火) 09:49:09.58

標準にはないね
汎用性を考えだすとIDisposableな型のプロパティとかどうするかって話になるし

**デフォルトの名無しさん** · 2020/07/07(火) 12:25:34.75

>>503
それでいいじゃん。
そもそも発想が変だと思うよ。
たぶんデザイナをブラックボックスだと考えてるからそうなるんだと思うけど。
デザイナは単にコントロールのプロパティーを設定するコードを自動生成してるだけw
それがInitializeComponent

まあ、プロパティーをデザイナで直接設定する代わりに
スコープをアプリケーションにしたアプリケーション設定にバインドすればたぶんやりたいことは実現できる。
https://www.atmarkit.co.jp/fdotnet/dotnettips/438winsettings/winsettings.html

**デフォルトの名無しさん** · 2020/07/07(火) 14:13:03.22

そもそもデザイナの設定なんで、実行時どころかコンパイル時で決定してるのに
それをなぜ実行時にコントロールから取得する必要があるのか

**デフォルトの名無しさん** · 2020/07/07(火) 18:21:35.43

>>506
実行時に取得したくないからなんかないかってしつもんだぞ

**503** · 2020/07/07(火) 20:39:38.96

皆さんありがとうございます。
例えば、テキストボックスの内容を初期値に戻すリセットボタンを付ける時など
デザイン時に設定した値を変数を使わずに簡単に呼び出せたらと前々から思っていました。
リソースを使うのがセオリーと思いますが、小規模なプログラムだとデザイナで設定する方が手軽なので…

TextBox1.Text = (New Form1).TextBox1.Text
↑のように新たなインスタンスを作ることも思いつきましたが効率が悪そうなので
>>503のコードのままにしようと思います。

**デフォルトの名無しさん** · 2020/07/07(火) 21:34:03.12

不特定のコントロールの不特定のプロパティーについて同様のことがしたいわけじゃなく、
特定のコントロールの特定のプロパティーで十分なら継承してResetTextみたいな
メソッドを追加しちゃうとすっきりするとは思う。

**デフォルトの名無しさん** · 2020/07/07(火) 22:26:57.54

textboxならtextとtagに同じ値入れときゃいいんじゃね？
俺は内部からセットした時とユーザー入力区別するために使ってるけど

**デフォルトの名無しさん** · 2020/07/08(水) 15:52:04.01

tagってデザイン時に設定できたっけ？

結局起動後のユーザーコードでごちゃごちゃやるなら
用途に応じたコントロールに拡張すればってなるんじゃね

**デフォルトの名無しさん** · 2020/07/08(水) 16:02:56.91

デザイン時にも設定できるけどデザイン時に設定する仕様だと
絶対どこかで「TextとTag両方同じ値を設定」を忘れるから悪手

**デフォルトの名無しさん** · 2020/07/08(水) 16:25:53.40

リセットボタンのClickイベントで、TextBoxに初期値をセットするコード書いて、
フォームのLoadイベントにも上記リセットClickを割当て（もしくはリセットClickを呼ぶコード書く）
同じことに実現できる気がしないこともない

**デフォルトの名無しさん** · 2020/07/08(水) 19:32:20.68

>>513
イベントハンドラから、違うイベントハンドラを直で呼ぶのは作法がよろしくない
初期化するプロシジャ書いて、リセットボタンのClickイベントとフォームのLoadイベントから呼べ

**デフォルトの名無しさん** · 2020/07/08(水) 20:30:06.21

>>512
Loadでコントロール全部舐めてTagにセットしてくって手はある
(コンテナが面倒くさいけど)

**デフォルトの名無しさん** · 2020/07/12(日) 15:29:18.48

Go To キャンペーンてなに?

**デフォルトの名無しさん** · 2020/07/12(日) 15:31:59.68

Gotoは使うなと爺ちゃんが言ってた

**デフォルトの名無しさん** · 2020/07/13(月) 17:47:03.41

強盗

**デフォルトの名無しさん** · 2020/07/13(月) 17:59:31.89

∀B.ET「強盗ではありません。ごーつーです。」

**デフォルトの名無しさん** · 2020/07/14(火) 16:33:50.53

>>514
それはMSのガイドラインかなんかで定められてるん？

**デフォルトの名無しさん** · 2020/09/10(木) 11:00:21.02

アホみたいな質問ですが投下させてください。

VBによって作られたソフトの改造業務をやることになったのですが
Propertyについての理解がネット記事を読んでも理解できません。

<宣言サンプル>
Public Structure ABC

Public Property SAMPLE(ByVal LONG as long) as boolean
Get
Return CBool(LONG And 0x0010）
End Get
Set(ByVal value as boolean)
'なにもしない
　　 End Set
End Property

End　Structure

<実装サンプル>
For i=1 To 5
Strings = IIF(ABC.SAMPLE(i),"OK",NG")
Next

一部処理を省略していますが、
特定条件下で入るSAMPLEパラメータを基にして
条件分岐してるみたいですが
GETとSETの違いが全く理解できず
実装サンプルの構文の意味が理解できません。

初心者で申し訳ありませんが何卒ご教示お願いしまｓ

**デフォルトの名無しさん** · 2020/09/10(木) 16:49:27.51

SET　設定する
GET　取得する
日本語だろ

**デフォルトの名無しさん** · 2020/09/10(木) 17:07:50.68

作りが悪い気がするけど、なにもしてないんだから
Set側無視してたんなる関数だと思っていいんじゃね

**デフォルトの名無しさん** · 2020/09/10(木) 18:16:35.03

readonlyでいい気もするけど要はビットテストみたいなことしたいんだろ

**デフォルトの名無しさん** · 2020/09/13(日) 00:23:00.92

ASP.NET+SQLServer2019でWebアプリ作ったんだけど、デバッグでDB接続はうまくいくのに、発行してIISから参照するとDB接続が失敗して困ってる。

**デフォルトの名無しさん** · 2020/09/13(日) 14:54:38.22

参照先が正しく設定できてないときは、確かプロジェクトフォルダ内ファイルを参照
することが多い。したがってデバック時にエラーが出ない。
そういう時は、参照先をすべてチェックするといい。

**525** · 2020/09/14(月) 17:07:20.83

ちょっと詳しい人に聞いたら、SQLServer側の問題だった。
あと、凝ったことやろうとするとJavascriptも使えないとダメだな。

**デフォルトの名無しさん** · 2020/09/16(水) 10:53:00.65

素人質問で申し訳ありませんが再度書込させていただきます。
VB2008にて、
「ボタンを押した時、既にEXCELが起動していたら終了する」処理をやらせたいのですが、
EXCELが起動していない時に実行するとエラーになってしまいます。
ネットとかで試してみたりしたのですが、うまくいきません。
EXCELが起動しているかどうかのプロパティなど、わかる方いたらご教示ください。

サンプル
<宣言>
Public ExAppli As Excel.Application 'Excel Object
Public ExBook As Excel.Workbook 'Excel Workbook Object
Public ExSheet As Excel.Worksheet 'Excel Worksheet Object
　　Const FilePath As String ="C:\STRAGE\"

<構文①>
Public Function ExcelOpen(ByVal FilePath As String) As Boolean
ExAppli = CreateObject("Excel.Application") 'EXCEL　Objectの作成
ExAppli.Visible = False 'アプリケーションの非表示
ExBook = ExAppli.Workbooks.Open(FilePath) 'ファイルを開く
ExAppli.Visible = True 'アプリケーションを表示
End Function

<構文②>
Public Function ExcelClose() As Boolean
'EXCEL起動のチェックがしたい
If Cbool(ExAppli.Active) = True Then
ExAppli.Quit() 'EXCEL終了
Else
'エラーメッセージ
End If
End Function

**デフォルトの名無しさん** · 2020/09/16(水) 18:01:22.74

EXCELが起動していない時に実行するとエラーなのは
お前の意図する動作だろ

**デフォルトの名無しさん** · 2020/09/16(水) 20:48:50.73

' An error 429 occurs on the following line:
Set oExcel = GetObject(, "Excel.Application")

**デフォルトの名無しさん** · 2020/09/22(火) 21:31:39.04

trycatchで捨てれば楽

**デフォルトの名無しさん** · 2020/10/07(水) 21:30:27.59

MSChartのグラフ部分を拡大縮小できるように拡張メタファイルを直接生成する関数やライブラリってありますでしょうか？

**デフォルトの名無しさん** · 2020/10/08(木) 05:23:50.50

MSChartのグラフ部分を拡大縮小できるようにって部分はちょっと意図を読めないけど
拡張メタファイルはSystem.Drawing.Imaging.Metafileを使えば作れるよ
New Metafile(Stream or String, ほかいろいろ)した後、Graphics.FromImage(meta)で作ったGraphicsに書き込んでいけばいい
Graphicsの各種メソッド呼び出すだけで自動的にファイルに書き込まれていく　逆にSaveメソッドはpngにしかならないので呼んじゃダメ
New Metafileの第2引数にデバイスコンテキスト要求されるけど
これはダミーのBitmap作ってGraphics.FromImage()からGetHdc()するとか
フォームアプリならthis.CreateGraphics()からGetHdc()するとか

**デフォルトの名無しさん** · 2020/10/08(木) 12:42:30.49

>>532
使ったことないけど、佐藤さんの作ったヘルプファイルを見た感じ
SaveImageで一発で出来るように思うんだけど違うの？

>>533
そこの意図は明瞭でしょ
EMFの利点はベクター形式だってことなんだからw

**デフォルトの名無しさん** · 2020/10/08(木) 13:44:07.81

MSChartのグラフ部分を（拡大縮小できるように）拡張メタファイルに出力する
こうか　読み違えてたわ

**デフォルトの名無しさん** · 2020/10/08(木) 23:31:16.63

>>533 >>534
返信ありがとうございます！Saveimageでばっちりできました。直接お絵描きする必要無かったです。

**デフォルトの名無しさん** · 2020/10/24(土) 15:30:50.53

ASP.NETで作ったWebアプリがpc、AndroidのChromeでは動くのに
iPhoneのChrome、safariではボタン押しても正常に動作しない。
どうしてだろう？

**デフォルトの名無しさん** · 2020/10/24(土) 15:44:00.66

あとGoogleの検索エンジンに全く引っかからない。
一応、headタグや見出しにSEO対策したつもりだが、、

**デフォルトの名無しさん** · 2020/10/27(火) 19:32:20.87

まあ、お前が分からないのなら
他に分かるやつなんていないよ

**デフォルトの名無しさん** · 2021/01/17(日) 13:10:16.16

教えてください。
VB.netです。
inkeditでtext-alignを触りたい時はどうすればいいですか？
文字を真ん中に持っていきたいと思っています。

**デフォルトの名無しさん** · 2021/01/18(月) 10:46:27.50

ES_CENTERつけても無視されたからInkEdit単体だと多分無理
雑にやるなら上端にTextBox重ねるとか

**デフォルトの名無しさん** · 2021/01/18(月) 18:42:17.74

>>540
全選択してSelectionAlignment でいけるんじゃね

**デフォルトの名無しさん** · 2021/01/20(水) 18:57:07.25

>>540
全選択の意味がわかりません。いろいろやってみましたがわかりませんでした。
教えてください。

**デフォルトの名無しさん** · 2021/01/20(水) 19:07:52.98

>>540
スミマセン。
InkEdit1.SelectionAlignment = HorizontalAlignment.Center
でできました。
でもカーソルが邪魔です。カーソルは消せないですよね。

**デフォルトの名無しさん** · 2021/01/22(金) 23:20:03.70

アクセス許可の権限範囲がいまだに理解できない俺。
Authenticated Users 　この権限は理解に苦しむ。

**sage** · 2021/01/24(日) 23:05:38.57

inkpictureのstrokeをGetPixelで色を収得したいのですが、どうすればいいですか？

**デフォルトの名無しさん** · 2021/02/02(火) 16:58:04.73

ADO.NETの操作について詳しいサイトありましたら紹介してもらえませんでしょうか？

**デフォルトの名無しさん** · 2021/02/02(火) 19:55:19.61

>>547
https://docs.microsoft.com/ja-jp/dotnet/framework/data/adonet/

**デフォルトの名無しさん** · 2021/02/12(金) 18:31:31.63

非同期処理でtextboxに文字を出力する方法でおすすめのページある？

**デフォルトの名無しさん** · 2021/02/12(金) 18:51:14.78

>>549
いくらなんでもざっくりし過ぎじゃないか

**デフォルトの名無しさん** · 2021/02/12(金) 18:53:42.04

>>550
cmdの結果をデリゲートでTextBoxに出力したいんだがデリゲート処理がわからなくて

**デフォルトの名無しさん** · 2021/02/12(金) 19:08:48.57

>>551
Control.Invoke使ってもいいけど今時はその「cmdの結果」
を返すメソッドを非同期メソッドにするだけだよ

**デフォルトの名無しさん** · 2021/02/12(金) 19:12:37.11

>>552
https://dobon.net/vb/dotnet/process/standardoutput.html

これの「コマンドプロンプトに文字列を入力することで、複数のコマンドを実行する」を参考にしてるんだけどよくわかんなくてね

**デフォルトの名無しさん** · 2021/02/12(金) 19:16:01.10

>>552
ttps://dobon.net/vb/dotnet/process/standardoutput.html

ここの複数コマンドのみてるけどこの処理とは違うの？

**デフォルトの名無しさん** · 2021/02/12(金) 19:16:17.41

消える…

**デフォルトの名無しさん** · 2021/02/12(金) 19:17:31.96

>>552
これとは違う？
https://i.imgur.com/nqnqpws.png

**デフォルトの名無しさん** · 2021/02/12(金) 21:00:41.51

>>556
非同期で呼び出されるイベントハンドラで結果がもらえるコードみたいだだから
非同期メソッドにはしづらいね。

例えばフォームにこんなメソッドを用意して、
Private Sub OnUIThread(a As Action)
　　BeginInvoke(a)
End Sub

イベントハンドラで
OnUIThread(
Sub()
　　TextBox1.Text = "hoge"
End Sub)
みたいにやればいいんじゃないの？

**デフォルトの名無しさん** · 2021/02/12(金) 21:09:14.42

しかしVBのラムダ式は酷いねw
昔VB好きだったけどこれが嫌でC#に乗り換えた人いっぱいいると思うわ

**デフォルトの名無しさん** · 2021/02/14(日) 10:17:02.39

Picturebox1に円を描いた後、Button1で円を追加したいと思います。
以下のコードだと前の円が消えてしまうのですが、どうすればいいですか？
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim canvas As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(canvas)
g.DrawArc(Pens.Black, 20, 20, 20, 20, 0, 360)
PictureBox1.Image = canvas
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim canvas As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(canvas)
g.DrawArc(Pens.Black, 20, 20, 10, 10, 0, 360)
PictureBox1.Image = canvas
End Sub

**デフォルトの名無しさん** · 2021/02/14(日) 10:54:41.13

>>559
内容理解せずコピペだけでコード書く人？
＞Dim canvas As New Bitmap(PictureBox1.Width, PictureBox1.Height)
＞PictureBox1.Image = canvas
新しい「canvas」を自分で用意してPictureBox1.Imageを差し替えているんだから前に描いた部分が無くなるのは当たり前
Graphics.FromImage(PictureBox1.Image)に描かないと

**デフォルトの名無しさん** · 2021/02/14(日) 11:50:51.24

VB.netはdobon.netのコピペでどうにかなりますｗ

**デフォルトの名無しさん** · 2021/02/15(月) 14:10:16.04

Dim i as Integer
i =6

Dim sBox as TextBox
sBox.Text = "aaa"

これですと、上のiでは何ともないですが、下のsBoxには
「値が割り当てられる前に～」と警告が付きます。
警告が付いたら
= New TextBoxをつけて、
sBox.Disposeで閉めればいいと考えていますが、
どれにNewをつけるとか付けないとかの区別について教えてください

**デフォルトの名無しさん** · 2021/02/15(月) 14:48:46.22

そもそも上下で明らかに違うじゃん
上は変数への代入で下は変数のプロパティへの代入
上に合わせるなら下は
Dim sBox as TextBox
sBox = New TextBox
でしょ

**デフォルトの名無しさん** · 2021/02/15(月) 15:38:10.60

>>562
それを理解するためには構造体（値型）とクラス（参照型）の違いを理解する必要がある。

これは余計なお世話だけど、そのレベルの初心者なら今からでもC#に乗り換えた方がいいよ。
VBでもC#でも習得の難易度は違わない。今あえてVBを選択する理由はないよ。

**デフォルトの名無しさん** · 2021/02/15(月) 21:44:03.49

Disposeが正確に書けてるかは自信ない。
無駄に書いてることもあるかも知れないし、必要なのに書いてないけど悪い影響なく動いてたり。

**デフォルトの名無しさん** · 2021/02/15(月) 22:09:14.54

下手にvb出来るとvb6からの置き換えとかいう定番のクソPJにぶち込まれる可能性があるぞ

**デフォルトの名無しさん** · 2021/02/17(水) 00:11:37.94

いまさらだけど、
VB6にあったコントロール配列ってなんでなくなったの？

**デフォルトの名無しさん** · 2021/02/22(月) 09:27:56.84

VBFormのブラックボックスな実装に依存してるから
WinFormは.NET Frameworkベースだからブラックボックスは使えない

互換性保とうにも、イベントハンドラの実装なんか別物に変化してるんで
不可能だと判断されたのだろう

**デフォルトの名無しさん** · 2021/02/23(火) 08:50:50.19

昔の書籍のVB5でゲーム作ろうとか
VB6でDirectX7ゲーム作ろうとか持ってるけど
.NETでは全く違うのかね？

BitBLTとかも使えなくなってんの？
DirectXはVBからの使い方のルールも違うのかね？

**デフォルトの名無しさん** · 2021/02/24(水) 11:14:45.88

BitBltはWindowsAPIだからインポートすれば使えるがアンマネージになるのでめんどくさい
.NETのGraphicsライブラリの使い方覚えるほうがずっと楽

DirectXも同様。色々ラッパーも有るけどオワコンも多い
.NETでゲーム作りたいならUnitiyでも覚えたほうがいいんじゃないかな

**デフォルトの名無しさん** · 2021/02/24(水) 11:54:14.87

unityとかどんどん肥大化するから使いたくない
VSだって肥大化してるからVS2008やcode使ってる

**デフォルトの名無しさん** · 2021/02/26(金) 00:57:11.39

VB.netで 3Dグラフってどうするの？

**デフォルトの名無しさん** · 2021/02/26(金) 19:21:46.77

Chart

**デフォルトの名無しさん** · 2021/02/28(日) 18:05:38.62

音声認識について教えてください。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
reco.SetInputToDefaultAudioDevice()
Dim gram As New Recognition.SrgsGrammar.SrgsDocument
Dim Rule As New Recognition.SrgsGrammar.SrgsRule("color")
Dim List As New Recognition.SrgsGrammar.SrgsOneOf("red", "green", "blue")
Rule.Add(List)
gram.Rules.Add(Rule)
gram.Root = Rule
reco.LoadGrammar(New Recognition.Grammar(gram))
reco.RecognizeAsync()
End Sub

Private Sub reco_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.RecognitionEventArgs) Handles reco.SpeechRecognized
Select Case e.Result.Text
Case "red"
SetColor(Color.Red)
Case "green"
SetColor(Color.Green)
Case "blue"
SetColor(Color.Blue)
End Select
End Sub

これの"red", "green", "blue"を
a(1)="red"
a(2)="green"
a(3)="blue"
：
というデータから読み取りたいと思います。
どうすればいいですか？

**デフォルトの名無しさん** · 2021/02/28(日) 19:02:27.16

引数なしでNew SrgsOneOfしたあとそれにAddしてけばいいんじゃないの

**デフォルトの名無しさん** · 2021/02/28(日) 19:40:09.89

どのようにAddすればいいですか？
Dim a(100) As Recognition.SrgsGrammar.SrgsItem
a(1) = SrgsGrammar.SrgsItem("red")
List.Add(a(1))

**デフォルトの名無しさん** · 2021/02/28(日) 20:09:34.72

こんなんだろ多分
Dim oneOf = New SrgsOneOf()
For Each word In words
oneOf.Add(New SrgsItem(word))
Next
List.Add(oneOf)

**デフォルトの名無しさん** · 2021/02/28(日) 22:36:09.00

返信ありがとうございます。
List.Add(oneOf)
のoneOfで
「型SrgsOneOfの値をSrgsItemに変換できません。」
というエラーが出ます。
教えてください。

**デフォルトの名無しさん** · 2021/03/03(水) 20:12:19.91

List.Add(New SrgsItem(oneOf))
で解決しました。ありがとうございました。

**デフォルトの名無しさん** · 2021/03/03(水) 20:39:29.57

ディクテーションで、なぜか
”he" だけ認識しない。
発音が悪いだけでしょうか。
"heel"とか"she”とか"what"は認識します。

**デフォルトの名無しさん** · 2021/03/03(水) 20:47:48.28

頭も悪いと思うよ

**デフォルトの名無しさん** · 2021/03/05(金) 08:31:54.32

質問させてください。
VB.net2010にてAcrobat sdkを使用し、デスクトップに保存しているpdfを
ボタンを押すとPanel1に表示するプログラムを作成しました。

Dim pdfOcx As New AxAcroPDFLib.AxAcroPDF
Dim sFile as string = "C:\temp\a.pdf"
pdfOcx.Dock = DockStyle.Fill
Panel1.Controls.Add(pdfOcx)
pdfOcx.LoadFile(sFile)

次の条件において確実にアプリが落ちてしまいます。(vb.netではエラーログ無し)
・PDF表示後、アプリを5分程度放置してもう一度PDFを表示させる。
Windowsのログには必ず次のエラーが記録されます。
障害が発生しているモジュール名: ntdll.dll、バージョン: 10.0.19041.844、タイムスタンプ: 0xa9ac4e88
例外コード: 0xc0000005

開くPDFを別のものに変えても発生します。
Acrobat sdkを使用せずWebBrowserで表示させても発生します。

恐縮ですが、何か原因は考えられるでしょうか？
よろしくお願いします。

**デフォルトの名無しさん** · 2021/03/05(金) 15:31:35.57

0xc0000005はアクセス違反
…解放済みのメモリのアクセスしたりすると起こる
OCXがウンコっぽいのでどうにもならないかもしれない

**デフォルトの名無しさん** · 2021/03/05(金) 15:48:52.76

>>583
そうですか。
ありがとうございます。

**デフォルトの名無しさん** · 2021/03/05(金) 15:55:30.08

GCされちゃったとかそんなのかな…

**デフォルトの名無しさん** · 2021/04/01(木) 12:49:52.32

VBからFirebase>Firestoreにデータ保存するサンプルプログラムない?

**586** · 2021/04/02(金) 16:45:34.04

youtubeで検索したら英語、C#ですがやり方が出てきました。

**デフォルトの名無しさん** · 2021/04/04(日) 14:54:07.18

>>586
https://www.example-code.com/vbnet/fireBase.asp

**デフォルトの名無しさん** · 2021/04/04(日) 14:56:45.03

FirebaseよりMySQLとかPostgreSQL使う方が後々良いと思うが

**デフォルトの名無しさん** · 2021/04/06(火) 15:50:26.01

VB.NETの案件も最近増えて来たね
一時期はC#がほとんどだったのにね