2008-08-01から1ヶ月間の記事一覧
Dim NewPath As PathItem Dim lines() As Object ReDim lines(0) Dim i As Short For i = 0 To 10 ReDim Preserve lines(i) 'LineList(i) = New Object() {x(i), y(i)} lines(i) = New Object() {i ^ 3 + 100, i ^ 2 + 200} '↑vb.netで配列の配列をVariant A…
Dim PoArray() As Integer = New Integer(1) {0, 0} '基準座標用 IllDoc.RulerOrigin = PoArray '基準座標を左下に合わせる
'リストFLにファイルを取得---------------------------------------------------- Dim FL As New List(Of String) Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加 If FL.Contains(FName) = False Then FL.Add(FName) End If E…
If Process.GetProcessesByName("Illustrator").Length = 0 Then Dim hProcess As System.Diagnostics.Process = System.Diagnostics.Process.Start("Illustrator") hProcess.WaitForInputIdle() ' アイドル状態になるまで待機する 'MsgBox("イラストレータ…
Imports System.IO Dim temDir As String = Path.GetTempPath & "\myTmp\" Directory.CreateDirectory(temDir) '〜処理〜 Directory.Delete(temDir, True)’ディレクトリを消さないと残ってしまう
'処理したいファイルを別ディレクトリにコピーするためのフォルダを新しく作成します Dim SaveDocDir As String = Path.GetDirectoryName(Fp(0)) & "\png_" & Format(Now(), "yyyyMMddHHmmss") & "\" MkDir(SaveDocDir)
Private Function getPDFSaveOptions() As PDFSaveOptions Dim options As PDFSaveOptions = New PDFSaveOptionsClass With options options.Compatibility = AiPDFCompatibility.aiAcrobat4 options.EmbedAllFonts = False options.GenerateThumbnails = Fa…
'PDFSaveOptionを設定する Dim PDFSaveOption As New PDFSaveOptions With PDFSaveOption .PreserveEditability = False .Compatibility = AiPDFCompatibility.aiAcrobat4 .EmbedAllFonts = False .GenerateThumbnails = False End With
Imports System.Threading Label1.Text = "70%縮小しています" Me.Refresh() If CheckBox1.Checked = True Then Try IllApp.DoScript("Reduction70", "VB60") While IllApp.ActionIsRunning = True Thread.Sleep(100) End While Catch ex As Exception MsgBo…
IllDoc.Close(AiSaveOptions.aiDoNotSaveChanges)
If Not Illapp.Visible Then Illapp.Quit() If Not Illapp Is Nothing Then System.Runtime.InteropServices.Marshal.ReleaseComObject(Illapp) End If
Dim Fs As New List(Of String) Private Sub Form1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then 'コントロール内にドラッグされたとき実…
Dim FL As New List(Of String) 'リストを作成 Public Sub ContAdd(ByVal FName As String) '重複のしないようにリストに追加 If FL.Contains(FName) = False Then FL.Add(FName) End If End Sub Public Function ExteJudge(ByVal FN As String) As Boolean …
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim FilePath As String Dim WA As New Word.Application Dim WF As Word.Document FilePath = "G:\a001.doc" WF = WA.Documents.Open(FileP…
’通常使うプリンタで印刷 Dim proc As New Process Dim FilePath As String = "G:\b001.doc" proc.StartInfo.FileName = filePath proc.StartInfo.Verb = "Print" proc.StartInfo.CreateNoWindow = True proc.Start() proc.WaitForExit(20000) 'プロセスが終…