無法註冊 flash player 的 activex 控制項 for win7/64/IE11

20140702 網路找了一些方法,待有空再試試:
flash player无法注册安装解决方法汇总
 

-------------
怎弄就是裝不起來!!   悲哀~~~

安裝 flash player 無法註冊

請參考:Flash Player Help / Flash Player | Windows registry permissions
--
參考:adobe flash player 無法註冊 (解決方法)
--
微軟:SubInACL 下載

--
20140703 -- 總算 IE 能安裝 Flash Player 14 了!
1.先下載:SubInACL
2.利用reset_fp11.bat 調整為 reset_fp14.bat
加入所有 14 的版本即可!

 

vbnet 檔案下載

請參考:[VB.net]如何實現「非同步下載」檔案？（一）使用 System.Net.WebClient 類別的 DownloadFileAsync() 方法。

請參考:[VB.net] 如何實現「非同步下載」檔案？（二）從 FTP 下載時如何先得到 File Size。
 

vbnet 取螢幕

Me.Bounds = (From scr In Screen.AllScreens Where scr.Primary)(0).WorkingArea'主螢幕
Me.Bounds = (From scr In Screen.AllScreens Where Not scr.Primary)(0).WorkingArea'第2顆螢幕

vbnet Split

Dim a As String = "123@456@789"
Dim ch1 As Char() = New Char() {"@"}
Dim str As String() = a.Split(ch1)
MessageBox.Show(str.Length)
For i As Integer = 0 To str.Length - 1
       MessageBox.Show(str(i))
Next

如何從DataTable中取出Distinct的資料

參考引用來源
--
 Dim tmpView As DataView = Dt.DefaultView
Dim tmpTable as DataTable = tmpView.ToTable("TmpTable1",True,"LastName")

C# Excel嵌入到Winform

參考引用來源:
---


C# Excel嵌入到Winform
本文讲的这个技术是把Excel表格嵌入到自己开发程序的Form窗体中进行操作，给客户一个不用切换窗口的操作界面，似乎更好。这在VC中用OLE技术很容易实现，但是在C#中方法就不一样啦。下面将就此进行阐述。

一、首先简要回顾一下如何操作Excel表

先要添加对Excel的引用。选择项目-〉添加引用-〉COM-〉添加Microsoft Excel 9.0。(不同的office讲会有不同版本的dll文件)。
   using Excel;
   using System.Reflection;
 
   //产生一个Excel.Application的新进程
   Excel.Application app = new Excel.Application();
   if (app == null)
   {
    statusBar1.Text = "ERROR: EXCEL couldn''t be started!";
    return ;
   }
 
   app.Visible = true; //如果只想用程序控制该excel而不想让用户操作时候，可以设置为false
   app.UserControl = true;
 
   Workbooks workbooks =app.Workbooks;

   _Workbook workbook = workbooks.Add(XlWBATemplate.xlWBATWorksheet); //根据模板产生新的workbook
// _Workbook workbook = workbooks.Add("c://a.xls"); //或者根据绝对路径打开工作簿文件a.xls

   Sheets sheets = workbook.Worksheets;
   _Worksheet worksheet = (_Worksheet) sheets.get_Item(1);
   if (worksheet == null)
   {
    statusBar1.Text = "ERROR: worksheet == null";
    return;
   }

   // This paragraph puts the value 5 to the cell G1
   Range range1 = worksheet.get_Range("A1", Missing.Value);
   if (range1 == null)
   {
    statusBar1.Text = "ERROR: range == null";
    return;
   }
   const int nCells = 2345;
   range1.Value2 = nCells;

二、将Excel用户界面嵌入到自己的Windows Form中

      由于目前，C#和vb.net都不支持OLE技术(参见微软支持中心Info:304562)，，所以只有使用WebBrowser控件来完成此功能。(以下方法参见微软支持中心Howto:304662)
      1、右击工具箱，选择自定义工具箱，添加COM组件，选择“Microsoft Web 浏览器”(对应文件是/winnt/system32/shdocvw.dll)，确定。在工具箱中将会出现文本为Explorer的WebBroser控件图标。



注意：在 Visual C# 2005 中，如果您找不到 SHDocVw.dll 文件或 AxSHDocVw.dll 文件，请在 Visual Studio 命令提示符下运行下面的命令： aximp %WINDIR%/system32/shdocvw.dll


      2、在Form1中添加WebBrowser控件。(对象名却省是axWebBrowser1)
      3、假定要打开的excel文件是: c:/a.xls。
       string strFileName = @"c:/a.xls";
     Object refmissing = System.Reflection.Missing.Value;
     axWebBrowser1.Navigate(strFileName, ref refmissing , ref refmissing , ref refmissing , ref refmissing);
    值得注意的是用WebBrowser控件不支持菜单合并，也就是说无法把Excel表的菜单带入到我们的程序中。这是相对于OLE实现方法的一大缺点。幸好提供了可以把工具栏添加进来的功能，通过工具栏可以进行许多Excel专有的操作。
     //下面这句可以将excel本身的工具调添加进来
    axWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_HIDETOOLBARS, SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER,ref refmissing , ref refmissing);
   
三、回到本文提出的问题，如何操作嵌入的Excel?

首先需要明白，用WebBrowser“装载”Excel"表，实际上仍然是在新的进程空间中运行Excel.exe。可以用任务管理器观察。因此，只要我们能够获取Excel.Application对象，就能像上文一中所说的那样操作Excel数据。
   幸好可以通过WebBrowser的方法NavigateComplete提供的事件参数e来访问Excel.Application。
public void axWebBrowser1_NavigateComplete2(object sender, AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event e)
{
   Object o = e.pDisp;
   Object oDocument = o.GetType().InvokeMember("Document",BindingFlags.GetProperty,null,o,null);
   Object oApplication = o.GetType().InvokeMember("Application",BindingFlags.GetProperty,null,oDocument,null);
      //Object oName = o.GetType().InvokeMember("Name",BindingFlags.GetProperty ,null,oApplication,null);

   //由于打开的是excel文件，所以这里的oApplication 其实就是Excel.Application
   Excel.Application eApp =(Excel.Application)oApplication;//这样就可以象上文中所述来操作Excel了。
}

四、包含该WebBrowser的Form退出时候，如何确保Excel进程也退出？(参见Microsoft帮助中心KB317109)

由于WebBrowser只不过是对Excel表的浏览，而Excel在单独的进程中运行。所以要保证对该Excel对象eApp及其相应的所有成员变量都释放引用，才能保证在Form退出时excel进程跟着退出。这一点在一个程序需要多次打开关闭excel表时尤为重要。
      Excel.Application oApp;
      Excel.Workbooks oBooks;
      Excel.Workbook oBook;
      Excel.Worksheet oSheet;
      ...........
    private void ExcelExit()
    {
       NAR(oSheet);
       oBook.Close(False);
       NAR(oBook);
       NAR(oBooks);
       oApp.Quit();
       NAR(oApp);

       Debug.WriteLine("Sleeping...");
       System.Threading.Thread.Sleep(5000);
       Debug.WriteLine("End Excel");
    }
private void NAR(Object o)
{
        try{System.Runtime.InteropServices.Marshal.ReleaseComObject(o);}
        catch{}
        finally{o = null;}
    }
经过试验，我发现除了释放这些变量以外，必须把该axWebBroswer1也销毁掉，Excel进程才退出。否则的话，即使让axWebBroser1去Navigate空内容"about:blank", excel进程仍然不会退出。因此应该将axWebBroser1所在的Form关闭掉，或者直接调用axWebBrowser1.Dispose();
如果还是其它问题导致不能正常退出，就只有调用垃圾回收了。
GC.Collect();

vb.net form focus

參考引用來源:How to return keyboard focus to topmost form?
--
真是找了好久!! 這方法只有:讚!!

 C#.NET:

using System.Runtime.InteropServices;
[DllImport("user32.dll")]
[return: MarshalAs(UnmanagedType.Bool)]
static extern bool SetForegroundWindow(IntPtr hWnd);

[DllImport("user32.dll", CharSet=CharSet.Auto, ExactSpelling=true)]
static extern IntPtr GetForegroundWindow();


static void restoreKbFocus(IntPtr hWnd)
{
      if (GetForegroundWindow() != hWnd)
      {
           SetForegroundWindow(hWnd);
      }
}

void timer_Tick(object sender, EventArgs eArgs)
{
      if (sender == timer)
      {
            restoreKbFocus(this.Handle);
      }
}

VB.NET:

Imports System.Runtime.InteropServices
_
Private Shared Function SetForegroundWindow(hWnd As IntPtr) As Boolean
End Function
_
Private Shared Function GetForegroundWindow() As IntPtr
End Function

Private Shared Sub restoreKbFocus(hWnd As IntPtr)
If GetForegroundWindow() <> hWnd Then
SetForegroundWindow(hWnd)
End If
End Sub

Private Sub timer_Tick(sender As Object, eArgs As EventArgs)
If sender = timer Then
restoreKbFocus(Me.Handle)
End If
End Sub

vb.net datagridview 欄位寬度

DataGridView1.AutoResizeColumns()        '欄位自動調整大小

vbnet 檢查印表機是否 online

--是否有安裝

Imports System.Drawing.Printing
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show(CheckPrinter("Microsoft XPS Document Writer").ToString)
        MessageBox.Show(CheckPrinter("EPSON Stylus Photo 895").ToString)
    End Sub
    Private Function CheckPrinter(ByVal printerName As String) As Boolean
        Dim online As Boolean = False
        Try
            Dim mprintDocument As PrintDocument = New PrintDocument()
            mprintDocument.PrinterSettings.PrinterName = printerName
            online = mprintDocument.PrinterSettings.IsValid
        Catch
            online = False
        End Try
        Return online
    End Function
End Class

---狀態判斷
 Private Enum PrinterStatus
PrinterIdle = 3
PrinterPrinting = 4
PrinterWarmingUp = 5
' For more states see WMI docs.
End Enum

Private Function PrinterStatusToString(ByVal ps As PrinterStatus) As
String
Dim s As String
Select Case ps
Case PrinterStatus.PrinterIdle
s = "waiting (idle)"
Case PrinterStatus.PrinterPrinting
s = "printing"
Case PrinterStatus.PrinterWarmingUp
s = "warming up"
Case Else ' Vielleicht gibt es noch weitere Falle...
s = "unknown state"
End Select
PrinterStatusToString = s
End Function

Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
Dim strPrintServer As String
strPrintServer = "localhost"
Dim WMIObject As String, PrinterSet As Object, Printer As Object
WMIObject = "winmgmts://" & strPrintServer
PrinterSet = GetObject(WMIObject).InstancesOf("win32_Printer")
For Each Printer In PrinterSet
MsgBox( _
Printer.Name & ": " & _
PrinterStatusToString(Printer.PrinterStatus) _
)
Next Printer
End Sub

醫院醫生和護士都不願說的醫學小常識

醫院醫生和護士都不願說的醫學小常識