「Web出版サイト」ベータ公開

Q&A集[?]

当サイトでのご質問の受付は終了しました

すべてのコンテンツを読み込み専用としたため、回答欄からも投稿できません

Apache OpenOffice/LibreOfficeのご質問はそれぞれのフォーラムへご投稿ください

質問コーナー

サイト内検索

分類メニュー

関連サイト


本日:1
昨日:0
総数:1410
現在:3


画面のちらつきをなくしたい

ページOpenOffice.org FAQの登録ページ
投稿者タイガー
分類
edit/refer
優先順位
edit/refer
状態
edit/refer
カテゴリー
edit/refer
投稿日2011-03-22 10:36:15 (火)
OSXP
依存するページ
バージョン
edit/refer

メッセージ

回答ページでは行末に「~」を付加する必要はありません

お世話になります
画面のちらつきをなくしたいのですがアドバイスお願い致します。

引数は、
csvURL=csvファイルパスを指定
▲ルクのシートオブジェクト(現在開いているカルクのSheet1)を指定
XとYは0を指定

動作は
き,CSVファイルを開き
キい離如璽身楼呂鮗萋世靴謄灰圈爾鬚靴
Ν△離掘璽箸劉の位置に書き込み
Лい離侫.ぅ襪鯤弔犬
といった流れです。

い魍いたときに画面が切り替わりちらつきが発生します
これをちらつかない様にしたいのですがアドバイスお願い致します。

Sub mdbDataToExcelods(ByVal csvURL As String,ByVal odsSheet As Object,ByVal X As Long,ByVal Y As Long) 
	Dim csvDoc As Object
	Dim csvFileName As String
  	Dim oRange As Object
  	Dim oCursor As Object
  	Dim DataArray()
  	Dim oURL As String
  	Dim Dummy(0) As New com.sun.star.beans.PropertyValue
  	
  	On Error Goto ERRLINE
  	
	oURL = ConvertToUrl(csvURL)	
	csvDoc = StarDesktop.loadComponentFromURL(oURL, "_hidden", 0, Dummy())
	
	csvDoc.addActionLock()   	' 画面更新抑制
	csvDoc.removeActionLock()  	' 画面更新抑制解除

  	'sheet1 のA1セルより最終行列アドレス取得
   oSheet = csvDoc.getSheets().getByIndex(0)
	oRange = oSheet.getCellRangeByName("A1")
	oCursor = oSheet.createCursorByRange(oRange)
	oCursor.collapseToCurrentRegion
	oCursor.gotoEndOfUsedArea(true)
	DataArray() = oSheet.getCellRangeByPosition(0, 0, oCursor.getColumns.Count, oCursor.getRows.Count).getDataArray()
	 
	'書き込み
	odsSheet.getCellRangeByPosition(x, y, oCursor.getColumns.Count + x, oCursor.getRows.Count + y ).setDataArray(DataArray)
	csvDoc.dispose()

ERRLINE:
End Sub

非表示で開くは以下になります

ike@九州 (2011-03-22 12:02:03 (火))

Dim args(0) As New com.sun.star.beans.PropertyValue
args(0).Name = "Hidden"
args(0).Value = True  
oURL = ConvertToUrl(csvURL)	
csvDoc = StarDesktop.loadComponentFromURL(oURL, "_blank", 0, args())

更新の抑制は不必要になりますね

補足:Hidden の後はWindowサイズに注意

K.Tsunoda (2011-03-22 13:33:30 (火))

Hiddenドキュメントを閉じた次に開くウィンドウは縮小化されます。

faq/5/106
「Hiddenドキュメントを閉じた後に開くドキュメントが縮小Windowになる」

http://blog.livedoor.jp/addinbox/archives/51282460.html
「非表示ドキュメント(Hidden=True)の注意事項」

お名前:
題名: