VB.NETにてDrag&Dropでbmpファイルをピクチャーボックスに
表示させようと思い、こちらで他の方が質問されていた
ソースを加工してテストしています。
画像ファイルをexplolerで掴んでピクチャーボックスの
上まで持ってくるとDragEnterイベントでアクセサリの
ペイントが起動してしまってそこで処理が止まってしまっています。
ブレークポイントを置いてみると
e.Data.GetDataPresentで起動してるようです。
ペイントが起動しないようにしたいのですが
どうすればいいのでしょうか？
どなたかよろしければご教授お願いいたします。
使用ツール：VS2005
OS:WinXpSP2
使用しているソース：
Private Sub pict1_DragEnter(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.DragEventArgs) Handles picturebox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
.NETで構造体をランダムファイルに書き込む処理を作成していますが、エラーになります。
構造体宣言は
Public Structure aaa
Public aa as DateTime
Public bb() as int16
Public Sub Init()
ReDim bb(100)
End Sub
End Structure
Public wData As New aaa
ファイル登録時に
FileOpen(iFileNo, sFileName, OpenMode.Random, , , len(wData))
FileOut(iFileNo, wData, iRecord)
上記のFilePutを実行した時点で、
「レコード長が正しくありません」
とエラーが出ます。
オープンするファイルナンバーやレコードは、
初回登録時は共に、１で問題ありません。
ＶＢのイメージで作成したのですが、どうもうまくいきません。
なにとぞ、お教えください。
プリンタの印刷ジョブを削除したい。
現在、VB.NET(Visual Studio 2008)で開発を行っています。
SetPrinter関数を使用して、印刷ジョブを全て削除したいのですがSetPrinterに失敗してしまいます。
GetLastErrorの戻り値は「5」でアクセス拒否のようです。
SetPrinterの前にOpenPrinterは成功しており、プリンタの印刷ジョブの情報は取得できています。
なお、同環境でVB6.0で同様のプログラムを作成し実行したところジョブの削除ができました。
類似した現象・解決方法等ご存知でしたら教えてください。
開発環境はWindowsXP、Visual Studio 2008です。
以下、ソースの抜粋です。
'宣言
Private Const DEF_INIT_BUFFER_PERFORM As Integer = 100
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const PRINTER_ACCESS_ADMINISTER = &H4
Public Const PRINTER_ACCESS_USE = &H8
Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)
Public Structure PRINTER_DEFAULTS
Public pDatatype As IntPtr
Public pDevMode As IntPtr
Public DesiredAccess As Integer
End Structure
<DllImport("winspool.drv", CharSet:=CharSet.Auto, SetLastError:=True)> _
Private Shared Function OpenPrinter( _
ByVal pPrinterName As String, _
ByRef hPrinter As IntPtr, _
ByVal pDefault As PRINTER_DEFAULTS _
) As Boolean
End Function
<DllImport("winspool.drv", CharSet:=CharSet.Auto, SetLastError:=True)> _
Private Shared Function SetPrinter( _
ByVal hPrinter As IntPtr, _
ByVal Level As Long, _
ByVal pDefault As IntPtr, _
ByVal Command As Long _
) As Boolean
End Function
'実行部
Dim pd As New PRINTER_DEFAULTS
pd.DesiredAccess = PRINTER_ALL_ACCESS
Dim printerHandle As IntPtr
Dim ret As Boolean = OpenPrinter("プリンタ名", printerHandle, pd)
Dim err As Integer = Marshal.GetLastWin32Error()
'Falseが返る
ret = SetPrinter(printerHandle, CLng(0), IntPtr.Zero, CLng(3))
'5が返る
err = Marshal.GetLastWin32Error()
プリンタの印刷ジョブを削除したい。
現在、VB.NET(Visual Studio 2008)で開発を行っています。
SetPrinter関数を使用して、印刷ジョブを全て削除したいのですがSetPrinterに失敗してしまいます。
GetLastErrorの戻り値は「5」でアクセス拒否のようです。
SetPrinterの前にOpenPrinterは成功しており、プリンタの印刷ジョブの情報は取得できています。
なお、同環境でVB6.0で同様のプログラムを作成し実行したところジョブの削除ができました。
類似した現象・解決方法等ご存知でしたら教えてください。
開発環境はWindowsXP、Visual Studio 2008です。
以下、ソースの抜粋です。
'宣言
Private Const DEF_INIT_BUFFER_PERFORM As Integer = 100
Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
Public Const PRINTER_ACCESS_ADMINISTER = &H4
Public Const PRINTER_ACCESS_USE = &H8
Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or _
PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)
Public Structure PRINTER_DEFAULTS
Public pDatatype As IntPtr
Public pDevMode As IntPtr
Public DesiredAccess As Integer
End Structure
<DllImport("winspool.drv", CharSet:=CharSet.Auto, SetLastError:=True)> _
Private Shared Function OpenPrinter( _
ByVal pPrinterName As String, _
ByRef hPrinter As IntPtr, _
ByVal pDefault As PRINTER_DEFAULTS _
) As Boolean
End Function
<DllImport("winspool.drv", CharSet:=CharSet.Auto, SetLastError:=True)> _
Private Shared Function SetPrinter( _
ByVal hPrinter As IntPtr, _
ByVal Level As Long, _
ByVal pDefault As IntPtr, _
ByVal Command As Long _
) As Boolean
End Function
'実行部
Dim pd As New PRINTER_DEFAULTS
pd.DesiredAccess = PRINTER_ALL_ACCESS
Dim printerHandle As IntPtr
Dim ret As Boolean = OpenPrinter("プリンタ名", printerHandle, pd)
Dim err As Integer = Marshal.GetLastWin32Error()
'Falseが返る
ret = SetPrinter(printerHandle, CLng(0), IntPtr.Zero, CLng(3))
'5が返る
err = Marshal.GetLastWin32Error()
ＶＢ６にてプログラムで動的に作成したフレーム（Frame）の上に、動的に作成したラベル（Label）を乗せることが出来ません。
どうすれば、ラベルをフレームの上に乗せることが出来るようになるでしょうか？
どなたか分かる方がいらっしゃいましたら、ご教授願います。
なお、フレームとラベルの作成は以下のようなやり方で行っています。
' Form1 : 表示フォーム
Private lbl As New LabelClass ' ラベル作成クラス
Private frm As New FrameClass ' フレーム作成クラス
Private Sub Form_Load()
Call lbl.LabelMake(Form1, "lbl1")
With lbl.makelbl
.Caption = "テストラベル"
.AutoSize = True
.Top = 500
.Left = 500
.Visible = True
End With
Call frm.FrameMake(Form1, "frm1")
With frm.makefrm
.Caption = "テストフレーム"
.Width = 2000
.Height = 2000
.Visible = True
End With
End Sub
' LabelClass : ラベル作成クラス
Public WithEvents makelbl As Label
Public Sub LabelMake(form As Object, name As String)
Set makelbl = form.Controls.Add("VB.Label", name)
End Sub
' FrameClass : フレーム作成クラス
Public WithEvents makefrm As Frame
Public Sub FrameMake(form As Object, name As String)
Set makefrm = form.Controls.Add("VB.Frame", name)
End Sub
※nameはオブジェクト名です
