■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#1343-2実行時430エラーについて匿名君2001-11-10(土) 21:23
     #1344-2RE#1343:実行時430エラーについて魔界の仮面弁士2001-11-11(日) 01:40
     #1346-2RE#1344:実行時430エラーについて匿名君2001-11-11(日) 04:10
     #1344-0RE#1343:実行時430エラーについて魔界の仮面弁士2001-11-11(日) 10:40
     #1346-0RE#1344:実行時430エラーについて匿名君2001-11-11(日) 13:10
#1343-2
実行時430エラーについて
自分がやってみた限りじゃエラーは出ないのですが、
ある方の場合このようなエラーが出ると報告を受けました。
---------------------------------------------------
実行時430エラー
クラスはオートメーションまたは予測したインターフェイスをサポートしていません
---------------------------------------------------
その方はWin98SEで、VB6のランタイムは指定したものをダウンロードしてもらいました。
ランタイムはいままでいろんな人にDLしてもらいましたが、このようなケースは初めてです。
自分的には、なにかのファイルが足りないと思うのですが、初心者なものでよくわかりません。

関連のあるところと思われるソースについては、以下のとおりです。

まず初めに

Dim FilePass As String

と宣言しておきます。
設定適用、というものがあるのですが、それを押すときにエラーが起こるようです。
押したときのソースは

Private Sub Thema_Enter_Click()
If Thema_Enter.Value = 1 Then Thema_Enter.Value = 0: Exit Sub

FilePass = App.Path + "\date"
Call GaikanTekiyou
Call GaikanSave

Thema_Enter.Enabled = False

End Sub

ちなみにボタン(Thema_Enter)はチェックボックスで
Style = 1
にして、ForeColorの設定もできるようにしてあります。
GaikanTekiyou と GaikanSave のソースは


Private Sub GaikanLoad()

  Dim fso As New FileSystemObject
  Dim fileAccess As File
  Dim ts As TextStream

  Set fileAccess = fso.GetFile(FilePass)
  Set ts = fileAccess.OpenAsTextStream(ForReading)

With ts
Thema_All.ForeColor = .ReadLine
Thema_All.BackColor = .ReadLine

(中略)

Thema_OpCombo.ForeColor = .ReadLine
Thema_OpCombo.BackColor = .ReadLine
End With

With Thema_List
.FontName = ts.ReadLine
.FontSize = ts.ReadLine
.FontBold = ts.ReadLine
.FontItalic = ts.ReadLine
End With

End Sub
-----------------------------------------
Private Sub GaikanSave()

  Dim fso As New FileSystemObject
  Dim fileAccess As File
  Dim ts As TextStream

Set ts = fso.CreateTextFile(FilePass, True)
With ts
.WriteLine Thema_All.ForeColor
.WriteLine Thema_All.BackColor

(中略)

.WriteLine Thema_OpCombo.ForeColor
.WriteLine Thema_OpCombo.BackColor
End With

With Thema_List
ts.WriteLine .FontName
ts.WriteLine .FontSize
ts.WriteLine .FontBold
ts.WriteLine .FontItalic
End With

  ts.Close
End Sub
-------------------------
ソースのほうに問題があるのかもしれません。自分では全然分からないので
どうすれば良いのか教えてください。お願いいたします。
#1344-2
RE#1343:実行時430エラーについて
> 実行時430エラー
> クラスはオートメーションまたは予測したインターフェイスをサポートしていません

恐らく、Scrrun.dll のバージョン不整合だと思われます。

Scrrun.dll自体は再頒布可能ですが、システムファイルの一部と見なされるため、
Windows Me や 2000などの System File Protection 機構を備えたOSに対しては、
セットアップが行われない可能性があります。


この場合は、
>  Dim fso As New FileSystemObject
の部分などを、すべてレイトバインディングに変更するか、
もしくは実行環境側のSCRRUN.DLLを、別途更新してもらう必要があります。

最新版のDLLは、こちらからダウンロードしてもらってください。
http://www.asia.microsoft.com/japan/developer/scripting/default.asp


なお、Scrrunを更新しても問題が解決しない場合、MDACのバージョン不整合も考えられます。
もしデータベースを利用している場合は、MDACの更新も試みてください。
#1346-2
RE#1344:実行時430エラーについて
魔界の仮面弁士様、助言ありがとうございます。
さっそく試してみたいと思います。
#1344-0
RE#1343:実行時430エラーについて
> 実行時430エラー
> クラスはオートメーションまたは予測したインターフェイスをサポートしていません

恐らく、Scrrun.dll のバージョン不整合だと思われます。

Scrrun.dll自体は再頒布可能ですが、システムファイルの一部と見なされるため、
Windows Me や 2000などの System File Protection 機構を備えたOSに対しては、
セットアップが行われない可能性があります。


この場合は、
>  Dim fso As New FileSystemObject
の部分などを、すべてレイトバインディングに変更するか、
もしくは実行環境側のSCRRUN.DLLを、別途更新してもらう必要があります。

最新版のDLLは、こちらからダウンロードしてもらってください。
http://www.asia.microsoft.com/japan/developer/scripting/default.asp


なお、Scrrunを更新しても問題が解決しない場合、MDACのバージョン不整合も考えられます。
もしデータベースを利用している場合は、MDACの更新も試みてください。
#1346-0
RE#1344:実行時430エラーについて
魔界の仮面弁士様、助言ありがとうございます。
さっそく試してみたいと思います。
このページと関連する記事:
#1343-0実行時430エラーについて2001-11-11(日) 06:23
#25238-0VBアプリケーションの配布について質問があります。2001-12-10(月) 18:08
#20322-0sfc.dllがありません。2001-04-16(月) 20:32
#6476-0OSの違いで動かない?2002-04-03(水) 09:54
#11164-0FileSystemObjectを使ったexeが実行できない2000-09-06(水) 22:05
#37093-0テキストファイルに書き込みたいのですが2001-01-17(水) 11:24
#162-2アプリケーションのインストール時のエラーについて2001-10-18(木) 05:32
#2473-1実行時エラー '430':1999-08-02(月) 19:12
#9180-0配布ファイル・実行時エラーについて2000-06-28(水) 17:28
#14807-0NT4.0での実行時エラー’713’2001-03-01(木) 19:08
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)