Property Get MyMother() As Person Set MyMother = Mother End Property Property Set MyMother(haha As Person) Set Mother = haha End Property 値を設定するときは、値型ならばLet、オブジェクト型ならばSetを使います。値の取得は、どちらもGetです。 なお、ここでMyAgeはGetのプロパティ プロ...
Private Sub CommandButton3_Click() Dim buffer As String ' 一時的に文字列を格納 Dim Stream As Object ' VB標準のADODB.Streamオブジェクトを作成する Set Stream = CreateObject("ADODB.Stream") ' ストリームの文字コードをUTF8に設定する Stream.Charset = "UTF-8" ' ファイルのタイプ(1:バ...
strFile = Application.GetOpenFilename(FileFilter:="全てのファイル,*.*", Title:="画像ファイルを選択してください") If strFile = "False" Then Exit Sub End If Set sp = ActiveSheet.Shapes.AddPicture( _ Filename:=strFile, _ LinkToFile:=False, _ SaveWithDocument:=True, _ Left:=0...
action=query&format=json&generator=search&gsrnamespace=0&gsrlimit=5&gsrsearch=%27valley%27 Dim xmlHttp As Object Set xmlHttp = CreateObject("MSXML2.XMLHTTP") Call xmlHttp.Open("GET", url, False) Call xmlHttp.send Dim strm As Object If xmlHttp.readyState = 4 Then Else Debug.Print "...
請先到 http://getahead.ltd.uk/dwr/ 下載 dwr.jar,放到WEB-INF/lib下… 負責處理客戶端請求,並呼叫Java物件的是DWRServlet,DWR其實也有些Model 2的味道,只是View的這一層比較弱,...DWR 入門與應用(二) 假設您要從資料庫中查詢出一些字串,然後填寫到表單的下拉選單中。 例如一個示意的Java程式如下: ...
次に示す VBA マクロは、ExcelWorkbook1 という Excel ブック プロジェクト内の Sheet1 ホスト項目クラスに定義されている MyVSTOMethod というメソッドを呼び出します。コピー Sub CallVSTOMethod Dim VSTOSheet1 As ExcelWorkbook1.Sheet1 Set VSTOSheet1 = GetManagedClass(Sheet1) ...
下記StringBuilderクラスを使って、 sLines = sLines & "Line" & vbCrLf に相当する処理を sb.AppendLine("Line") のように記述し、ToString()で連結後の文字列を取得することができます。 変数宣言する場合 DimsbAsStringBuilderSetsb=NewStringBuilderCallsb.Append("変数")Callsb.AppendLine("を使いま...
SetXData xdataType, xdata Next ent End Sub 選択セット内のすべてのオブジェクトの拡張データを表示する 次の例では、前の例でアタッチした拡張データを表示します。文字列(タイプ 1000)以外の拡張データをアタッチする場合は、このコードを変更する必要があります。 Sub Ch10_ViewXData(...
Set wsh = CreateObject("Wscript.Shell") If IsNumeric(vFolder) Then getSpecialFolder = wsh.SpecialFolders(CLng(vFolder)) Else getSpecialFolder = wsh.SpecialFolders(CStr(vFolder)) End If Set wsh = Nothing End Function 数値列挙でも文字列でも、どちらでも取得できるようにしています。
Set objAcroPDDoc = objAcroAVDoc.GetPDDoc() 'JavaScriptオブジェクトを作成する。 Set jso = objAcroPDDoc.GetJSObject jso.SaveAs "フォルダアドレス\ファイル名.tiff", "com.adobe.acrobat.tiff" 'PDFファイルを変更無しで閉じます。