首先你想獲取當今的天氣預報 你發(fā)布在網(wǎng)頁制作 我姑且是以為你做的是vb.net 網(wǎng)頁程序其次 獲取當今的天氣預報 都是調(diào)用各大網(wǎng)站給出的接口 （不會有人自己去整理這些資料的吧）最后 接口的使用 如果是軟件 可以調(diào)用 WEB服務接口（各網(wǎng)站有） 網(wǎng)頁也可以調(diào)用這些接口（實現(xiàn)方法輸入城市地址，返回天氣）還有更簡單的 直接使用我給出一個簡單框架代碼實現(xiàn)：新浪天氣預報代碼 代碼 ："/A
網(wǎng)站的建設創(chuàng)新互聯(lián)公司專注網(wǎng)站定制,經(jīng)驗豐富,不做模板,主營網(wǎng)站定制開發(fā).小程序定制開發(fā),H5頁面制作!給你煥然一新的設計體驗!已為崗亭等企業(yè)提供專業(yè)服務。
直接使用百度天氣api來獲取天氣信息，再提取就可以了。
滿意采納哈。
首先要有矢量化的地圖，剩下的就是計算機圖形學中的填充問題了。還有一種笨方法，但很可行，將大地圖拆分成多個小地圖，并分別填充不同的顏色，需要哪個區(qū)域哪個顏色直接調(diào)用就行了。
你可以在窗體上放一個lable控件，取名叫l(wèi)able1，
那么實現(xiàn)方式就是：
private
sub
form_load()
lable1.text="今天天氣很好";
end
sub
你可以試試
Visual Basic通用報表設計小結
本文對vb設計報表的方法作了一個小結，大家都知道，在VB平臺下制作報表大致有兩種選擇：使用VB自帶的Data Report控件和借助第三方軟件。其中第三方軟件比較著名的就是MS Excel和Seagate公司的CrystalReporter，以下就這三個方案進行詳細的討論。
1. Data Report控件
1．1 Data Report控件使用方法
由于是VB自帶的控件，所以使用相對比較方便。使用方法是：首先在"工程"菜單下面選擇"添加Data report"選項，這樣Data Report控件就選入到了應用程序。
使用Data report的情況大多數(shù)采用數(shù)據(jù)綁定的模式，也就是將此控件與數(shù)據(jù)庫的數(shù)據(jù)表綁定起來以便可以不用編寫代碼就輕松完成報表的設計。要使用數(shù)據(jù)綁定就必須要指定數(shù)據(jù)源，這里的數(shù)據(jù)源不是數(shù)據(jù)控件而是數(shù)據(jù)環(huán)境（Data Environment）,選擇"工程"菜單下面選擇"添加Data Environment"選項就可以將數(shù)據(jù)環(huán)境添加進應用程序中。數(shù)據(jù)環(huán)境有兩個重要的屬性：Connection 和Command屬性，前者是連接指定的數(shù)據(jù)庫，后者連接指定的數(shù)據(jù)表，一旦這兩者都設置成功之后，就可以把數(shù)據(jù)環(huán)境作為數(shù)據(jù)源了。只需要把Data report的DataSource屬性設置為前面的數(shù)據(jù)環(huán)境對象以及把DataMember設置為數(shù)據(jù)環(huán)境對象的Command對象即可。
1．2 Data Report控件界面元素
完成了Data report控件的數(shù)據(jù)綁定工作之后就可以直接控制報表的制作與顯示了。這里首先熟悉一下Data report控件的顯示界面：
Data report控件一共有5個區(qū)組成，分別是報表頭、頁面頭、細節(jié)區(qū)、頁面注腳和報表注腳。報表頭和報表注腳是用分別用于整個報表的最上部和最下部，它們將出現(xiàn)于整個報表的每一頁，可以放置一些報表名稱，時間之類的固定文本；頁面頭和頁面注腳只能出現(xiàn)在當前頁的最上部和最下部，也就是說它只能出現(xiàn)在當前頁中，不出現(xiàn)在其他頁面中，可以放置隨頁面變化的一些量比如頁碼等；而細節(jié)區(qū)就是用來進行實際顯示的區(qū)域，它是我們最為關心的區(qū)域，通過在此區(qū)域內(nèi)放置顯示控件可以控制報表的實際顯示輸出。這里介紹一下放置文本框控件的使用方法，其實在綁定情況下只需要設置其DataMember和Datafield即可，前者用來指定數(shù)據(jù)表，可以設置為前面數(shù)據(jù)環(huán)境對象的Command對象，后者是指定數(shù)據(jù)段，即綁定的數(shù)據(jù)庫的指定字段。這樣不需要編寫任何代碼就可以實現(xiàn)報表的顯示工作。
1．3 Data Report控件的打印功能
對于報表的打印可以直接使用Data report自帶的打印功能，即可以實現(xiàn)簡易的報表打印。不過為了實現(xiàn)比較復雜的打印功能，也可以通過程序控制的方法來進行。這里只是給出一個實現(xiàn)思路：首先需要制作一個按鈕控件來顯示"打印設置"的窗口，通過這個窗口用戶可以設置打印的相關的參數(shù)，然后在實現(xiàn)打印的子模塊中使用VB內(nèi)嵌的printer對象來實現(xiàn)真實的打印，該對象能夠?qū)Υ蛴〉漠斍拔恢眠M行定位，而且對打印的字體等參數(shù)進行控制，所以結合"打印設置"窗口可以實現(xiàn)類似于word里面的打印功能。
2．MS Excel
說起報表設計應用程序，無意微軟的Excel是一支獨秀，MS Excel就是用來進行表格和報表設計用的應用程序，它具有優(yōu)秀的方格控制和宏代碼定制功能。所以如果在設計自己的應用程序的時候能夠結合到Excel的話，那么你的應用程序就應該是相當?shù)耐晟屏耍驗闊o論是編輯還是打印功能，Excel都提供了很完美的解決方案，所以你的應用程序所要做的事情就是實現(xiàn)程序和Excel通訊即可。
事實上，可以使用VBscript可以將VB與Excel兩者連接起來。以下就簡要介紹在VB下開發(fā)基于Excel的編程思路。
在VB中處理Excel的對象大致分為五個：Application對象、WorkBook對象、WorkSheet對象、Range對象以及Cell對象。它們的功能分別如下：
Application---------用來指代整個應用程序。
WorkBook----------表示工作簿對象
WorkSheet---------表示工作表對象，注意，一個工作簿可以包含多個工作表，它們就類似于多文檔中的框架窗口和里面的單個視圖一樣。
Range-------------表示工作表中的某個區(qū)域范圍對象，特殊情況下也可以只代表一個Cell。
Cell---------------表示特定工作表的一個單元格對象。這個對象的使用頻率是最高的。
清楚了以上的五個對象的應用范圍，那么使用它們就很簡單了，不過在使用這些對象之前，首先需要對它們進行聲明。方法是在"工程"的"引用"對話框之下選擇"Microsoft Excel9.0 Object Library"，這樣就將整個Excel對象庫就引入到程序中來了。
下面舉一個示例，其實現(xiàn)的功能是打開一個工作簿。
Function OpenBook(strFilePath As String) As Boolean
' This procedure checks to see if the workbook
' specified in the strFilePath argument is open.
' If it is open, the workbook is activated. If it is
' not open, the procedure opens it.
Dim wkbCurrent As Excel.Workbook
Dim strBookName As String
On Error GoTo OpenBook_Err
' Determine the name portion of the strFilePath argument.
strBookName = NameFromPath(strFilePath)
If Len(strBookName) = 0 Then Exit Function
If Workbooks.Count 0 Then
For Each wkbCurrent In Workbooks
If UCase$(wkbCurrent.Name) = UCase$(strBookName) Then
wkbCurrent.Activate
Exit Function
End If
Next wkbCurrent
End If
Workbooks.Open strBookName
OpenBook = True
OpenBook_End:
Exit Function
OpenBook_Err:
OpenBook = False
Resume OpenBook_End
End Function
3．Crystal Reporter（水晶報表）
做為一個優(yōu)秀的報表軟件，水晶報表是實際應用中最多的方案。在這一節(jié)里主要介紹一下水晶報表的定制和顯示，打印功能的實現(xiàn)。
首先要區(qū)分Crystal Reports插件程序和Crystal Reports控件。前者主要用來創(chuàng)建報表模板，后者主要是用來在程序中顯示和打印報表，這兩者的分工決定了它們程序中的功能的不同。
其中Crystal Reports的插件程序可以從Seagate公司的官方網(wǎng)站上下載最新的測試版本。
3．1 Crystal Reports插件程序的使用
選擇"外接程序"菜單的"報表設計器"選項，則VB將執(zhí)行Crystal Reports Pro插件應用程序。在Crystal Reports Pro里選擇"新建報表"圖標，可以選擇8標準模板和一個自定義的模板來開始報表工程。
整個水晶報表的使用跟第一節(jié)的Data Report的使用很類似。首先需要給報表選擇數(shù)據(jù)源，（即數(shù)據(jù)庫），然后就可以在報表中添加、刪除、修改字段以及為記錄分組，可以利用水晶報表創(chuàng)建很多具有自定義風格的報表。由于本身Crystal Reports插件程序就是一個功能強大的報表設計軟件，這里就不能一一的講解了，有興趣可以參考程序自帶的幫助文檔。
3．2 Crystal Reports控件的背景知識
Crystal Reports Pro還提供一個報表生成模塊，該模塊可以連接到并訪問VB應用程序，VB程序員不需花費大量時間寫自己的代碼就可再應用程序中添加復雜的報表生成及輸出功能。
Crystal Reports引擎是一個動態(tài)鏈接庫，它可以使應用程序訪問并具有同Crystal Reports 一樣強大的報表輸出功能。應用程序是通過Crystal Reports ActiveX控件來訪問引擎。再編譯時應用程序同報表引擎鏈接，以給應用程序添加了生成報表的功能。
當程序使用Crystal Reports ActiveX控件時，可以通過再設計時設置Crystal對象屬性或者再運行時改變對象屬性，來建立應用程序和Crystal Reports之間的連接。通過Crystal控件的屬性可以指定：
響應應用程序某個事件的輸出報表的名字。
報表的目標位置（預覽窗口、磁盤文件或者電子郵件等）。
想要打印的份數(shù)（如果報表提交給打印機的話）。
輸出文件的信息。
預覽窗口的大小及位置信息（如果報表在預覽窗口中顯示時）。
選擇公式信息（如果在報表中限制記錄的話）。
排序信息。
其他相關的屬性。
這里要注意一點的是，Crystal控件必須在由Crystal Reports Pro創(chuàng)建的報表中使用，而試圖在VB應用程序里引用之前，必須首先創(chuàng)建報表。
3．3 Crystal Reports控件的使用
了解了Crystal Reports控件的功能，那么就可以使用它了。首先通過"工程"的"部件"選項里面選擇"Crystal Reports Control"，那么VB的工具箱里面就添加了Crystal Reports控件了。
注意，對于Crystal Reports控件的最重要的屬性就是ReportFileName了，把它設置為前面已經(jīng)在Crystal Reports Pro里定制好的報表模板的文件路徑。那么只需要調(diào)用控件的PrintReport方法就可以將報表顯示出來了。
相對于Data Report控件來說，Crystal Reports控件的功能更加的完善，報表預覽，打印，編輯修改等功能都很完善，所以在實際的報表應用設計方案中，使用Crystal Reports的相對較多。然而Crystal Reports控件也有它的局限性，即它不能在運行時創(chuàng)建自定義的窗口?？梢允褂每丶臄?shù)據(jù)綁定屬性來創(chuàng)建數(shù)據(jù)綁定報表，但是報表本身的格式都是由Crystal Reports控件內(nèi)部進行處理的。一般說來，Crystal Reports控件不提供在程序中對報表字段級的訪問。這一缺陷可以通過設計出足夠多的報表來彌補。
4.其他方法
除了通過上述的三種方法來實現(xiàn)報表設計以外，當然也可以直接利用Win32 API來進行直接進行設計，這種方式是最為靈活也是最為繁瑣的方式，因為所有的編輯、修改、打印等功能都是由程序控制，所以一般情況下不會使用這樣的方式來處理，這里就不介紹了。
5．小結
報表設計是程序員經(jīng)常要遇到的問題，本文主要介紹目前主流的報表設計方案，由于所涉及到的知識點比較多，限于篇幅，在這里只是作了簡要的介紹，希望可以起到拋磚引玉的作用。
Private?Sub?Command1_Click()
Const?Url?=?""?'從網(wǎng)址讀取的文本是一個腳本語言的結構類型數(shù)據(jù)
Dim?xmlHTTP?As?Object
Set?xmlHTTP?=?CreateObject("Microsoft.XMLHTTP")
xmlHTTP.Open?"GET",?Url,?False
xmlHTTP.send
If?xmlHTTP.readystate?=?4?Then
Dim?jsCode?As?String
jsCode?=?xmlHTTP.responseText
jsCode?=?"var?f="??jsCode?'在文本前添加"var?f="就構成了一個完整的賦值語句，這樣就可以通過f變量讀取成員數(shù)據(jù)
Dim?jsObject?As?Object
Set?jsObject?=?CreateObject("MSScriptControl.ScriptControl")?'不過上面的是JavaScript語句，要借助該對象來解析
jsObject.Language?=?"javascript"
jsObject.AddCode?jsCode
'--------------------------------------
MsgBox?jsObject.Eval("f.weatherinfo.index48_d")?'這是讀取結構變量的某個成員值
End?If
End?Sub
得，寫完才剛看到是要vb.net 代碼，上面是vb6.0的，或許vb.net 也可以吧。
重慶分公司
重慶分公司
